Fix previous rmail-output-read-file-name change

* lisp/mail/rmailout.el (rmail-output-read-file-name):
Fix previous change (when the alist is nil or does not match).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 17c7fa0..7865b9a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-08-19  Glenn Morris  <rgm@gnu.org>
+
+       * mail/rmailout.el (rmail-output-read-file-name):
+       Fix previous change (when the alist is nil or does not match).
+
 2012-08-19  Chong Yidong  <cyd@gnu.org>
 
        * xml.el (xml-escape-string): Don't refer to xml-entity-alist

diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el
index 5d50013..c325824 100644 (file)
--- a/lisp/mail/rmailout.el
+++ b/lisp/mail/rmailout.el
@@ -61,27 +61,30 @@ The function `rmail-delete-unwanted-fields' uses this, ignoring case."
 Set `rmail-default-file' to this name as well as returning it.
 This uses `rmail-output-file-alist'."
   (let* ((default-file
-          (when rmail-output-file-alist
-            (or rmail-buffer (error "There is no Rmail buffer"))
-            (save-current-buffer
-              (set-buffer rmail-buffer)
-              (let ((beg (rmail-msgbeg rmail-current-message))
-                    (end (rmail-msgend rmail-current-message)))
-                (if (rmail-buffers-swapped-p) (set-buffer rmail-view-buffer))
-                (save-excursion
-                  (save-restriction
-                    (widen)
-                    (narrow-to-region beg end)
-                    (let ((tail rmail-output-file-alist)
-                          answer)
-                      ;; Suggest a file based on a pattern match.
-                      (while (and tail (not answer))
-                        (goto-char (point-min))
-                        (if (re-search-forward (caar tail) nil t)
-                            (setq answer (eval (cdar tail))))
-                        (setq tail (cdr tail)))
-                      ;; If no suggestion, use same file as last time.
-                      (or answer rmail-default-file))))))))
+          (or
+           (when rmail-output-file-alist
+             (or rmail-buffer (error "There is no Rmail buffer"))
+             (save-current-buffer
+               (set-buffer rmail-buffer)
+               (let ((beg (rmail-msgbeg rmail-current-message))
+                     (end (rmail-msgend rmail-current-message)))
+                 (if (rmail-buffers-swapped-p) (set-buffer rmail-view-buffer))
+                 (save-excursion
+                   (save-restriction
+                     (widen)
+                     (narrow-to-region beg end)
+                     (let ((tail rmail-output-file-alist)
+                           answer)
+                       ;; Suggest a file based on a pattern match.
+                       (while (and tail (not answer))
+                         (goto-char (point-min))
+                         (if (re-search-forward (caar tail) nil t)
+                             ;; FIXME trap and report any errors.
+                             (setq answer (eval (cdar tail))))
+                         (setq tail (cdr tail)))
+                       answer))))))
+           ;; If no suggestion, use same file as last time.
+           rmail-default-file))
         (read-file
          (expand-file-name
           (read-file-name