Mercurial > emacs

changeset 102096:7053d753a548

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-spam-filter): Show a message rather than the raw mbox while prompting.
author Glenn Morris <rgm@gnu.org>
date Wed, 18 Feb 2009 08:01:56 +0000
parents 1dd8685cb091
children a07976575a49
files lisp/mail/rmail-spam-filter.el
diffstat 1 files changed, 9 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmail-spam-filter.el	Wed Feb 18 07:41:10 2009 +0000
+++ b/lisp/mail/rmail-spam-filter.el	Wed Feb 18 08:01:56 2009 +0000
@@ -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)