2001-06-19 10:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* nnmail.el (nnmail-incoming-buffer): New variable.
	(nnmail-split-incoming): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 20e06ed..24decee 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-06-19 10:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * nnmail.el (nnmail-incoming-buffer): New variable.
+       (nnmail-split-incoming): Use it.
+
 2001-06-15  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * qp.el (quoted-printable-decode-region): If called interactively,

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index 993f002..cccfba5 100644 (file)
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -433,6 +433,9 @@ parameter.  It should return nil, `warn' or `delete'."
 
 ;;; Internal variables.
 
+(defvar nnmail-incoming-buffer " *nnmail incoming*"
+  "The buffer used for splitting incoming mails.")
+
 (defvar nnmail-split-history nil
   "List of group/article elements that say where the previous split put messages.")
 
@@ -896,7 +899,7 @@ FUNC will be called with the buffer narrowed to each mail."
                                nnmail-split-methods)))
     (save-excursion
       ;; Insert the incoming file.
-      (set-buffer (get-buffer-create " *nnmail incoming*"))
+      (set-buffer (get-buffer-create nnmail-incoming-buffer))
       (erase-buffer)
       (let ((coding-system-for-read nnmail-incoming-coding-system))
        (mm-insert-file-contents incoming))