From 872b1b16c3ffbebe205beb05e8cd42f3b1605c9f Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Mon, 20 Sep 2010 20:11:34 -0700 Subject: [PATCH] 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. --- lisp/gnus/ChangeLog | 5 +++++ 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 + + * 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))) -- 2.11.4.GIT