diff options
| author | Glenn Morris <rgm@gnu.org> | 2010-09-20 20:11:34 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2010-09-20 20:11:34 -0700 |
| commit | 872b1b16c3ffbebe205beb05e8cd42f3b1605c9f (patch) | |
| tree | 47978c257a2ac7f78a5b269644a7bfa10cd82edd /lisp/gnus | |
| parent | f06d3d36dfa80fcf3bdf0a76e146ddec99e1fe89 (diff) | |
| download | emacs-872b1b16c3ffbebe205beb05e8cd42f3b1605c9f.tar.gz | |
Fix message-mode bug with fcc to Rmail buffers.
* lisp/gnus/message.el (message-output): Use gnus-output-to-rmail if a
buffer is visiting the fcc file in rmail-mode.
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/gnus/message.el | 10 |
2 files changed, 13 insertions, 2 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index ab1210af5b5..931ce7182c6 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2010-09-21 Glenn Morris <rgm@gnu.org> + + * message.el (message-output): Use gnus-output-to-rmail if a buffer is + visiting the fcc file in rmail-mode. + 2010-04-22 Andreas Seltenreich <seltenreich@gmx.de> * message.el (message-generate-headers): Record insertion of optional diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 2fe8a4d32ef..214ac0b3906 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -5311,8 +5311,14 @@ Otherwise, generate and save a value for `canlock-password' first." (defun message-output (filename) "Append this article to Unix/babyl mail file FILENAME." - (if (and (file-readable-p filename) - (mail-file-babyl-p filename)) + (if (or (and (file-readable-p filename) + (mail-file-babyl-p filename)) + ;; gnus-output-to-mail does the wrong thing with live, mbox + ;; Rmail buffers in Emacs 23. + ;; http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=597255 + (let ((buff (find-buffer-visiting filename))) + (and buff (with-current-buffer buff + (eq major-mode 'rmail-mode))))) (gnus-output-to-rmail filename t) (gnus-output-to-mail filename t))) |