*** empty log message ***

[gnus] / lisp / gnus-art.el

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 75bf8b0..2826fbb 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1398,14 +1398,16 @@ This format is defined by the `gnus-article-time-format' variable."
 
 (defun gnus-read-save-file-name (prompt &optional filename
                                        function group headers variable)
-  (let ((default-name (funcall function group headers
-                              (symbol-value variable)))
+  (let ((default-name
+         (funcall function group headers (symbol-value variable)))
        result)
     (setq
      result
      (cond
       ((eq filename 'default)
        default-name)
+      ((eq filename t)
+       default-name)
       (filename filename)
       (t
        (let* ((split-name (gnus-get-split-value gnus-split-methods))