*** empty log message ***

[gnus] / lisp / nnfolder.el

diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el
index 6c6207c..fee60a0 100644 (file)
--- a/lisp/nnfolder.el
+++ b/lisp/nnfolder.el
@@ -529,8 +529,7 @@ time saver for large mailboxes.")
 
 (defun nnfolder-save-mail (group-art-list)
   "Called narrowed to an article."
-  (let* ((delim (concat "^" message-unix-mail-delimiter))
-        save-list group-art)
+  (let* (save-list group-art)
     (goto-char (point-min))
     ;; The From line may have been quoted by movemail.
     (when (looking-at (concat ">" message-unix-mail-delimiter))