X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fnnfolder.el;h=fee60a00d11d72567def220d51d591f55c0ab4f1;hb=e71dc54cf26dc9373979ecf871e11609c7dcb7db;hp=6c6207c266c3ddf9b9d87eb1fb064ada16c5cf3a;hpb=842a9816a058067683d2a91db8770b32f1730889;p=gnus

diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el
index 6c6207c26..fee60a00d 100644
--- 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))