[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/mail rmail-spam-filter.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp/mail rmail-spam-filter.el |
Date: |
Wed, 18 Feb 2009 08:01:56 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/02/18 08:01:56
Modified files:
lisp/mail : rmail-spam-filter.el
Log message:
(rmail-spam-filter): Show a message rather than the raw mbox while
prompting.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmail-spam-filter.el?cvsroot=emacs&r1=1.26&r2=1.27
Patches:
Index: rmail-spam-filter.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmail-spam-filter.el,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -b -r1.26 -r1.27
--- rmail-spam-filter.el 18 Feb 2009 04:33:30 -0000 1.26
+++ rmail-spam-filter.el 18 Feb 2009 08:01:56 -0000 1.27
@@ -329,13 +329,20 @@
;; and delete the spam msg if needed:
(let ((rmail-current-message msg) ; FIXME does this do anything?
(action (cdr (assq 'action
- (nth num-element rsf-definitions-alist)))))
+ (nth num-element rsf-definitions-alist))))
+ (newfile (not (file-exists-p rsf-file))))
;; Check action item in rsf-definitions-alist and do it.
(cond
((eq action 'output-and-delete)
- ;; FIXME the prompt to write a new file leaves the raw
+ ;; Else the prompt to write a new file leaves the raw
;; mbox buffer visible.
+ (and newfile
+ (rmail-show-message (rmail-first-unseen-message) 1))
(rmail-output rsf-file)
+ ;; Swap back, else rmail-get-new-mail-1 gets confused.
+ (when newfile
+ (rmail-swap-buffers-maybe)
+ (widen))
;; Don't delete if automatic deletion after output is on.
(or rmail-delete-after-output (rmail-delete-message)))
((eq action 'delete-spam)