Mercurial > emacs
comparison lisp/gnus/message.el @ 110528:a4f29934ad86
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.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Mon, 20 Sep 2010 20:11:34 -0700 |
| parents | 97594bf4e5a9 |
| children | b799d38f522a 376148b31b5e |
comparison
equal
deleted
inserted
replaced
| 110527:1c7c10a7b9ef | 110528:a4f29934ad86 |
|---|---|
| 5309 (rmail-output file 1 t t)))))) | 5309 (rmail-output file 1 t t)))))) |
| 5310 (kill-buffer (current-buffer)))))) | 5310 (kill-buffer (current-buffer)))))) |
| 5311 | 5311 |
| 5312 (defun message-output (filename) | 5312 (defun message-output (filename) |
| 5313 "Append this article to Unix/babyl mail file FILENAME." | 5313 "Append this article to Unix/babyl mail file FILENAME." |
| 5314 (if (and (file-readable-p filename) | 5314 (if (or (and (file-readable-p filename) |
| 5315 (mail-file-babyl-p filename)) | 5315 (mail-file-babyl-p filename)) |
| 5316 ;; gnus-output-to-mail does the wrong thing with live, mbox | |
| 5317 ;; Rmail buffers in Emacs 23. | |
| 5318 ;; http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=597255 | |
| 5319 (let ((buff (find-buffer-visiting filename))) | |
| 5320 (and buff (with-current-buffer buff | |
| 5321 (eq major-mode 'rmail-mode))))) | |
| 5316 (gnus-output-to-rmail filename t) | 5322 (gnus-output-to-rmail filename t) |
| 5317 (gnus-output-to-mail filename t))) | 5323 (gnus-output-to-mail filename t))) |
| 5318 | 5324 |
| 5319 (defun message-cleanup-headers () | 5325 (defun message-cleanup-headers () |
| 5320 "Do various automatic cleanups of the headers." | 5326 "Do various automatic cleanups of the headers." |