(nnmail-mail-splitting-decodes): New variable.

(nnmail-article-group): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 09aba95..6a26bb0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-06-03  Simon Josefsson  <jas@extundo.com>
+
+       * nnmail.el (nnmail-mail-splitting-decodes): New variable.
+       (nnmail-article-group): Use it.
+
 2002-05-30  Kai Gro\e,b_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
 
        * gnus-msg.el (gnus-inews-yank-articles): Merge split header lines

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index b7bfa68..04878c1 100644 (file)
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -484,6 +484,11 @@ parameter.  It should return nil, `warn' or `delete'."
   :group 'nnmail
   :type 'symbol)
 
+(defcustom nnmail-mail-splitting-decodes t
+  "Whether the nnmail splitting functionality should MIME decode headers."
+  :group 'nnmail
+  :type 'boolean)
+
 ;;; Internal variables.
 
 (defvar nnmail-article-buffer " *nnmail incoming*"
@@ -1000,8 +1005,9 @@ FUNC will be called with the group name to determine the article number."
        ;; Copy the headers into the work buffer.
        (insert-buffer-substring obuf beg end)
        ;; Decode MIME headers and charsets.
-       (let ((mail-parse-charset nnmail-mail-splitting-charset))
-         (mail-decode-encoded-word-region (point-min) (point-max)))
+       (when nnmail-mail-splitting-decodes
+         (let ((mail-parse-charset nnmail-mail-splitting-charset))
+           (mail-decode-encoded-word-region (point-min) (point-max))))
        ;; Fold continuation lines.
        (goto-char (point-min))
        (while (re-search-forward "\\(\r?\n[ \t]+\\)+" nil t)