From: Glenn Morris Date: Tue, 21 Sep 2010 03:11:34 +0000 (-0700) Subject: Fix message-mode bug with fcc to Rmail buffers. X-Git-Tag: emacs-pretest-23.2.90~104 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=872b1b16c3ffbebe205beb05e8cd42f3b1605c9f;p=emacs.git 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. --- 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 + + * 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 * 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)))