Sync up with pgnus-0.34

[elisp/gnus.git-] / lisp / gnus-sum.el
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el

index bae4300..cf346a1 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -1,8 +1,9 @@
-;;; gnus-sum.el --- summary mode commands for Gnus
+;;; gnus-sum.el --- summary mode commands for Semi-gnus
  ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
  ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
-;; Keywords: news
+;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Keywords: mail, news, MIME
  
  ;; This file is part of GNU Emacs.
  
  
  ;; This file is part of GNU Emacs.
  
@@ -34,7 +35,10 @@
  (require 'gnus-int)
  (require 'gnus-undo)
  (require 'gnus-util)
  (require 'gnus-int)
  (require 'gnus-undo)
  (require 'gnus-util)
+(require 'mime-view)
+
  (autoload 'gnus-summary-limit-include-cached "gnus-cache" nil t)
  (autoload 'gnus-summary-limit-include-cached "gnus-cache" nil t)
+(autoload 'gnus-set-summary-default-charset "gnus-i18n" nil t)
  
  (defcustom gnus-kill-summary-on-exit t
    "*If non-nil, kill the summary buffer when you exit from it.
  
  (defcustom gnus-kill-summary-on-exit t
    "*If non-nil, kill the summary buffer when you exit from it.
@@ -252,8 +256,12 @@ equal will be included."
  (defcustom gnus-auto-select-first t
    "*If nil, don't select the first unread article when entering a group.
  If this variable is `best', select the highest-scored unread article
  (defcustom gnus-auto-select-first t
    "*If nil, don't select the first unread article when entering a group.
  If this variable is `best', select the highest-scored unread article
-in the group.  If neither nil nor `best', select the first unread
-article.
+in the group.  If t, select the first unread article.
+
+This variable can also be a function to place point on a likely
+subject line.  Useful values include `gnus-summary-first-unread-subject', 
+`gnus-summary-first-unread-article' and 
+`gnus-summary-best-unread-article'.
  
  If you want to prevent automatic selection of the first unread article
  in some newsgroups, set the variable to nil in
  
  If you want to prevent automatic selection of the first unread article
  in some newsgroups, set the variable to nil in
@@ -261,7 +269,10 @@ in some newsgroups, set the variable to nil in
    :group 'gnus-group-select
    :type '(choice (const :tag "none" nil)
                  (const best)
    :group 'gnus-group-select
    :type '(choice (const :tag "none" nil)
                  (const best)
-                (sexp :menu-tag "first" t)))
+                (sexp :menu-tag "first" t)
+                (function-item gnus-summary-first-unread-subject)
+                (function-item gnus-summary-first-unread-article)
+                (function-item gnus-summary-best-unread-article)))
  
  (defcustom gnus-auto-select-next t
    "*If non-nil, offer to go to the next group from the end of the previous.
  
  (defcustom gnus-auto-select-next t
    "*If non-nil, offer to go to the next group from the end of the previous.
@@ -314,7 +325,7 @@ and non-`vertical', do both horizontal and vertical recentering."
    "*If non-nil, ignore articles with identical Message-ID headers."
    :group 'gnus-summary
    :type 'boolean)
    "*If non-nil, ignore articles with identical Message-ID headers."
    :group 'gnus-summary
    :type 'boolean)
-  
+
  (defcustom gnus-single-article-buffer t
    "*If non-nil, display all articles in the same buffer.
  If nil, each group will get its own article buffer."
  (defcustom gnus-single-article-buffer t
    "*If non-nil, display all articles in the same buffer.
  If nil, each group will get its own article buffer."
@@ -328,10 +339,10 @@ variable."
    :group 'gnus-article-various
    :type 'boolean)
  
    :group 'gnus-article-various
    :type 'boolean)
  
-(defcustom gnus-show-mime nil
+(defcustom gnus-show-mime t
    "*If non-nil, do mime processing of articles.
  The articles will simply be fed to the function given by
    "*If non-nil, do mime processing of articles.
  The articles will simply be fed to the function given by
-`gnus-show-mime-method'."
+`gnus-article-display-method-for-mime'."
    :group 'gnus-article-mime
    :type 'boolean)
  
    :group 'gnus-article-mime
    :type 'boolean)
  
@@ -663,7 +674,24 @@ is not run if `gnus-visual' is nil."
    :group 'gnus-summary-visual
    :type 'hook)
  
    :group 'gnus-summary-visual
    :type 'hook)
  
-(defcustom gnus-parse-headers-hook nil
+(defcustom gnus-structured-field-decoder
+  #'eword-decode-and-unfold-structured-field
+  "Function to decode non-ASCII characters in structured field for summary."
+  :group 'gnus-various
+  :type 'function)
+
+(defcustom gnus-unstructured-field-decoder
+  (function
+   (lambda (string)
+     (eword-decode-unstructured-field-body
+      (std11-unfold-string string) 'must-unfold)
+     ))
+  "Function to decode non-ASCII characters in unstructured field for summary."
+  :group 'gnus-various
+  :type 'function)
+
+(defcustom gnus-parse-headers-hook
+  '(gnus-set-summary-default-charset)
    "*A hook called before parsing the headers."
    :group 'gnus-various
    :type 'hook)
    "*A hook called before parsing the headers."
    :group 'gnus-various
    :type 'hook)
@@ -989,6 +1017,25 @@ variable (string, integer, character, etc).")
  ;; Byte-compiler warning.
  (defvar gnus-article-mode-map)
  
  ;; Byte-compiler warning.
  (defvar gnus-article-mode-map)
  
+;; MIME stuff.
+
+(defvar gnus-encoded-word-method-alist
+  '(("chinese" mail-decode-encoded-word-string rfc1843-decode-string)
+    (".*" mail-decode-encoded-word-string))
+  "Alist of regexps (to match group names) and lists of functions to be applied.")
+
+(defun gnus-multi-decode-encoded-word-string (string)
+  "Apply the functions from `gnus-encoded-word-method-alist' that match."
+  (let ((alist gnus-encoded-word-method-alist)
+       elem)
+    (while (setq elem (pop alist))
+      (when (string-match (car elem) gnus-newsgroup-name)
+       (pop elem)
+       (while elem
+         (setq string (funcall (pop elem) string)))
+       (setq alist nil)))
+    string))
+
  ;; Subject simplification.
  
  (defun gnus-simplify-whitespace (str)
  ;; Subject simplification.
  
  (defun gnus-simplify-whitespace (str)
@@ -1213,6 +1260,7 @@ increase the score of each group you read."
      "t" gnus-article-hide-headers
      "g" gnus-summary-show-article
      "l" gnus-summary-goto-last-article
      "t" gnus-article-hide-headers
      "g" gnus-summary-show-article
      "l" gnus-summary-goto-last-article
+    "v" gnus-summary-preview-mime-message
      "\C-c\C-v\C-v" gnus-uu-decode-uu-view
      "\C-d" gnus-summary-enter-digest-group
      "\M-\C-d" gnus-summary-read-document
      "\C-c\C-v\C-v" gnus-uu-decode-uu-view
      "\C-d" gnus-summary-enter-digest-group
      "\M-\C-d" gnus-summary-read-document
@@ -1226,6 +1274,7 @@ increase the score of each group you read."
      "L" gnus-summary-lower-score
      "\M-i" gnus-symbolic-argument
      "h" gnus-summary-select-article-buffer
      "L" gnus-summary-lower-score
      "\M-i" gnus-symbolic-argument
      "h" gnus-summary-select-article-buffer
+    "b" gnus-article-view-part
      
      "V" gnus-summary-score-map
      "X" gnus-uu-extract-map
      
      "V" gnus-summary-score-map
      "X" gnus-uu-extract-map
@@ -1357,7 +1406,6 @@ increase the score of each group you read."
      "e" gnus-article-emphasize
      "w" gnus-article-fill-cited-article
      "c" gnus-article-remove-cr
      "e" gnus-article-emphasize
      "w" gnus-article-fill-cited-article
      "c" gnus-article-remove-cr
-    "q" gnus-article-de-quoted-unreadable
      "f" gnus-article-display-x-face
      "l" gnus-summary-stop-page-breaking
      "r" gnus-summary-caesar-message
      "f" gnus-article-display-x-face
      "l" gnus-summary-stop-page-breaking
      "r" gnus-summary-caesar-message
@@ -1384,10 +1432,6 @@ increase the score of each group you read."
      "c" gnus-article-highlight-citation
      "s" gnus-article-highlight-signature)
  
      "c" gnus-article-highlight-citation
      "s" gnus-article-highlight-signature)
  
-  (gnus-define-keys (gnus-summary-wash-mime-map "M" gnus-summary-wash-map)
-    "w" gnus-article-decode-mime-words
-    "c" gnus-article-decode-charset)
-
    (gnus-define-keys (gnus-summary-wash-time-map "T" gnus-summary-wash-map)
      "z" gnus-article-date-ut
      "u" gnus-article-date-ut
    (gnus-define-keys (gnus-summary-wash-time-map "T" gnus-summary-wash-map)
      "z" gnus-article-date-ut
      "u" gnus-article-date-ut
@@ -1487,10 +1531,6 @@ increase the score of each group you read."
                ["Headers" gnus-article-highlight-headers t]
                ["Signature" gnus-article-highlight-signature t]
                ["Citation" gnus-article-highlight-citation t])
                ["Headers" gnus-article-highlight-headers t]
                ["Signature" gnus-article-highlight-signature t]
                ["Citation" gnus-article-highlight-citation t])
-            ("MIME"
-             ["Words" gnus-article-decode-mime-words t]
-             ["Charset" gnus-article-decode-charset t]
-             ["QP" gnus-article-de-quoted-unreadable t])
               ("Date"
                ["Local" gnus-article-date-local t]
                ["ISO8601" gnus-article-date-iso8601 t]
               ("Date"
                ["Local" gnus-article-date-local t]
                ["ISO8601" gnus-article-date-iso8601 t]
@@ -1512,7 +1552,6 @@ increase the score of each group you read."
                ["Word wrap" gnus-article-fill-cited-article t]
                ["CR" gnus-article-remove-cr t]
                ["Show X-Face" gnus-article-display-x-face t]
                ["Word wrap" gnus-article-fill-cited-article t]
                ["CR" gnus-article-remove-cr t]
                ["Show X-Face" gnus-article-display-x-face t]
-              ["Quoted-Printable" gnus-article-de-quoted-unreadable t]
                ["UnHTMLize" gnus-article-treat-html t]
                ["Rot 13" gnus-summary-caesar-message t]
                ["Unix pipe" gnus-summary-pipe-message t]
                ["UnHTMLize" gnus-article-treat-html t]
                ["Rot 13" gnus-summary-caesar-message t]
                ["Unix pipe" gnus-summary-pipe-message t]
@@ -1616,8 +1655,8 @@ increase the score of each group you read."
         ["Wide reply and yank" gnus-summary-wide-reply-with-original t]
         ["Mail forward" gnus-summary-mail-forward t]
         ["Post forward" gnus-summary-post-forward t]
         ["Wide reply and yank" gnus-summary-wide-reply-with-original t]
         ["Mail forward" gnus-summary-mail-forward t]
         ["Post forward" gnus-summary-post-forward t]
-       ["Digest and mail" gnus-uu-digest-mail-forward t]
-       ["Digest and post" gnus-uu-digest-post-forward t]
+       ["Digest and mail" gnus-summary-mail-digest t]
+       ["Digest and post" gnus-summary-post-digest t]
         ["Resend message" gnus-summary-resend-message t]
         ["Send bounced mail" gnus-summary-resend-bounced-mail t]
         ["Send a mail" gnus-summary-mail-other-window t]
         ["Resend message" gnus-summary-resend-message t]
         ["Send bounced mail" gnus-summary-resend-bounced-mail t]
         ["Send a mail" gnus-summary-mail-other-window t]
@@ -1865,7 +1904,7 @@ The following commands are available:
    (setq mode-name "Summary")
    (make-local-variable 'minor-mode-alist)
    (use-local-map gnus-summary-mode-map)
    (setq mode-name "Summary")
    (make-local-variable 'minor-mode-alist)
    (use-local-map gnus-summary-mode-map)
-  (buffer-disable-undo (current-buffer))
+  (buffer-disable-undo)
    (setq buffer-read-only t)            ;Disable modification
    (setq truncate-lines t)
    (setq selective-display t)
    (setq buffer-read-only t)            ;Disable modification
    (setq truncate-lines t)
    (setq selective-display t)
@@ -1883,7 +1922,6 @@ The following commands are available:
    (make-local-hook 'pre-command-hook)
    (add-hook 'pre-command-hook 'gnus-set-global-variables nil t)
    (gnus-run-hooks 'gnus-summary-mode-hook)
    (make-local-hook 'pre-command-hook)
    (add-hook 'pre-command-hook 'gnus-set-global-variables nil t)
    (gnus-run-hooks 'gnus-summary-mode-hook)
-  (mm-enable-multibyte)
    (gnus-update-format-specifications nil 'summary 'summary-mode 'summary-dummy)
    (gnus-update-summary-mark-positions))
  
    (gnus-update-format-specifications nil 'summary 'summary-mode 'summary-dummy)
    (gnus-update-summary-mark-positions))
  
@@ -2431,7 +2469,7 @@ marks of articles."
        (setq gnus-tmp-name gnus-tmp-from))
      (unless (numberp gnus-tmp-lines)
        (setq gnus-tmp-lines 0))
        (setq gnus-tmp-name gnus-tmp-from))
      (unless (numberp gnus-tmp-lines)
        (setq gnus-tmp-lines 0))
-    (gnus-put-text-property-excluding-characters-with-faces
+    (gnus-put-text-property
       (point)
       (progn (eval gnus-summary-line-format-spec) (point))
       'gnus-number gnus-tmp-number)
       (point)
       (progn (eval gnus-summary-line-format-spec) (point))
       'gnus-number gnus-tmp-number)
@@ -2671,16 +2709,21 @@ If NO-DISPLAY, don't generate a summary buffer."
                  (not no-display)
                  gnus-newsgroup-unreads
                  gnus-auto-select-first)
                  (not no-display)
                  gnus-newsgroup-unreads
                  gnus-auto-select-first)
-           (unless (if (eq gnus-auto-select-first 'best)
-                       (gnus-summary-best-unread-article)
-                     (gnus-summary-first-unread-article))
-             (gnus-configure-windows 'summary))
+           (progn
+             (gnus-configure-windows 'summary)
+             (cond
+              ((eq gnus-auto-select-first 'best)
+               (gnus-summary-best-unread-article))
+              ((eq gnus-auto-select-first t)
+               (gnus-summary-first-unread-article))
+              ((gnus-functionp gnus-auto-select-first)
+               (funcall gnus-auto-select-first))))
           ;; Don't select any articles, just move point to the first
           ;; article in the group.
           (goto-char (point-min))
           (gnus-summary-position-point)
           (gnus-configure-windows 'summary 'force)
           ;; Don't select any articles, just move point to the first
           ;; article in the group.
           (goto-char (point-min))
           (gnus-summary-position-point)
           (gnus-configure-windows 'summary 'force)
-         (gnus-set-mode-line 'summary))        
+         (gnus-set-mode-line 'summary))
         (when (get-buffer-window gnus-group-buffer t)
           ;; Gotta use windows, because recenter does weird stuff if
           ;; the current buffer ain't the displayed window.
         (when (get-buffer-window gnus-group-buffer t)
           ;; Gotta use windows, because recenter does weird stuff if
           ;; the current buffer ain't the displayed window.
@@ -3049,7 +3092,7 @@ Returns HEADER if it was entered in the DEPENDENCIES.  Returns nil otherwise."
  (defsubst gnus-nov-parse-line (number dependencies &optional force-new)
    (let ((eol (gnus-point-at-eol))
         (buffer (current-buffer))
  (defsubst gnus-nov-parse-line (number dependencies &optional force-new)
    (let ((eol (gnus-point-at-eol))
         (buffer (current-buffer))
-       header)
+       header rawtext decoded)
  
      ;; overview: [num subject from date id refs chars lines misc]
      (unwind-protect
  
      ;; overview: [num subject from date id refs chars lines misc]
      (unwind-protect
@@ -3061,8 +3104,22 @@ Returns HEADER if it was entered in the DEPENDENCIES.  Returns nil otherwise."
           (setq header
                 (make-full-mail-header
                  number                 ; number
           (setq header
                 (make-full-mail-header
                  number                 ; number
-                (rfc2047-decode-string (gnus-nov-field)) ; subject
-                (rfc2047-decode-string (gnus-nov-field)) ; from
+                (progn
+                  (setq rawtext (gnus-nov-field) ; subject
+                        decoded (funcall
+                                 gnus-unstructured-field-decoder rawtext))
+                  (if (string= rawtext decoded)
+                      rawtext
+                    (put-text-property 0 (length decoded) 'raw-text rawtext decoded)
+                    decoded))
+                (progn
+                  (setq rawtext (gnus-nov-field) ; from
+                        decoded (funcall
+                                 gnus-structured-field-decoder rawtext))
+                  (if (string= rawtext decoded)
+                      rawtext
+                    (put-text-property 0 (length decoded) 'raw-text rawtext decoded)
+                    decoded))
                  (gnus-nov-field)       ; date
                  (or (gnus-nov-field)
                      (nnheader-generate-fake-message-id)) ; id
                  (gnus-nov-field)       ; date
                  (or (gnus-nov-field)
                      (nnheader-generate-fake-message-id)) ; id
@@ -3773,7 +3830,7 @@ or a straight list of headers."
               (setq gnus-tmp-name gnus-tmp-from))
             (unless (numberp gnus-tmp-lines)
               (setq gnus-tmp-lines 0))
               (setq gnus-tmp-name gnus-tmp-from))
             (unless (numberp gnus-tmp-lines)
               (setq gnus-tmp-lines 0))
-           (gnus-put-text-property-excluding-characters-with-faces
+           (gnus-put-text-property
              (point)
              (progn (eval gnus-summary-line-format-spec) (point))
              'gnus-number number)
              (point)
              (progn (eval gnus-summary-line-format-spec) (point))
              'gnus-number number)
@@ -3896,6 +3953,7 @@ If SELECT-ARTICLES, only select those articles from GROUP."
        ;; Init the dependencies hash table.
        (setq gnus-newsgroup-dependencies
             (gnus-make-hashtable (length articles)))
        ;; Init the dependencies hash table.
        (setq gnus-newsgroup-dependencies
             (gnus-make-hashtable (length articles)))
+      (gnus-set-global-variables)
        ;; Retrieve the headers and read them in.
        (gnus-message 5 "Fetching headers for %s..." gnus-newsgroup-name)
        (setq gnus-newsgroup-headers
        ;; Retrieve the headers and read them in.
        (gnus-message 5 "Fetching headers for %s..." gnus-newsgroup-name)
        (setq gnus-newsgroup-headers
@@ -4205,7 +4263,7 @@ If WHERE is `summary', the summary mode line format will be used."
           ;; We might have to chop a bit of the string off...
           (when (> (length mode-string) max-len)
             (setq mode-string
           ;; We might have to chop a bit of the string off...
           (when (> (length mode-string) max-len)
             (setq mode-string
-                 (concat (truncate-string mode-string (- max-len 3))
+                 (concat (gnus-truncate-string mode-string (- max-len 3))
                           "...")))
           ;; Pad the mode string a bit.
           (setq mode-string (format (format "%%-%ds" max-len) mode-string))))
                           "...")))
           ;; Pad the mode string a bit.
           (setq mode-string (format (format "%%-%ds" max-len) mode-string))))
@@ -4311,7 +4369,7 @@ The resulting hash table is returned, or nil if no Xrefs were found."
        ;; Then we add the read articles to the range.
        (gnus-add-to-range
         ninfo (setq articles (sort articles '<))))))
        ;; Then we add the read articles to the range.
        (gnus-add-to-range
         ninfo (setq articles (sort articles '<))))))
-  
+
  (defun gnus-group-make-articles-read (group articles)
    "Update the info of GROUP to say that ARTICLES are read."
    (let* ((num 0)
  (defun gnus-group-make-articles-read (group articles)
    "Update the info of GROUP to say that ARTICLES are read."
    (let* ((num 0)
@@ -4376,6 +4434,7 @@ The resulting hash table is returned, or nil if no Xrefs were found."
        (subst-char-in-region (point-min) (point-max) ?\t ?  t)
        (gnus-run-hooks 'gnus-parse-headers-hook)
        (let ((case-fold-search t)
        (subst-char-in-region (point-min) (point-max) ?\t ?  t)
        (gnus-run-hooks 'gnus-parse-headers-hook)
        (let ((case-fold-search t)
+           rawtext decoded
             in-reply-to header p lines chars)
         (goto-char (point-min))
         ;; Search to the beginning of the next header.  Error messages
             in-reply-to header p lines chars)
         (goto-char (point-min))
         ;; Search to the beginning of the next header.  Error messages
@@ -4405,13 +4464,27 @@ The resulting hash table is returned, or nil if no Xrefs were found."
             (progn
               (goto-char p)
               (if (search-forward "\nsubject: " nil t)
             (progn
               (goto-char p)
               (if (search-forward "\nsubject: " nil t)
-                 (rfc2047-decode-string (nnheader-header-value))
+                 (progn
+                   (setq rawtext (nnheader-header-value)
+                         decoded (funcall
+                                  gnus-unstructured-field-decoder rawtext))
+                   (if (string-equal rawtext decoded)
+                       rawtext
+                     (put-text-property 0 (length decoded) 'raw-text rawtext decoded)
+                     decoded))
                 "(none)"))
             ;; From.
             (progn
               (goto-char p)
               (if (search-forward "\nfrom: " nil t)
                 "(none)"))
             ;; From.
             (progn
               (goto-char p)
               (if (search-forward "\nfrom: " nil t)
-                 (rfc2047-decode-string (nnheader-header-value))
+                 (progn
+                   (setq rawtext (nnheader-header-value)
+                         decoded (funcall
+                                  gnus-structured-field-decoder rawtext))
+                   (if (string-equal rawtext decoded)
+                       rawtext
+                     (put-text-property 0 (length decoded) 'raw-text rawtext decoded)
+                     decoded))
                 "(nobody)"))
             ;; Date.
             (progn
                 "(nobody)"))
             ;; Date.
             (progn
@@ -4531,10 +4604,9 @@ list of headers that match SEQUENCE (see `nntp-retrieve-headers')."
                                      number dependencies force-new))))
                    (push header headers))
               (forward-line 1))
                                      number dependencies force-new))))
                    (push header headers))
               (forward-line 1))
-         ;(error
-         ; (gnus-error 4 "Strange nov line (%d)"
-       ;              (count-lines (point-min) (point))))
-         )
+         (error
+          (gnus-error 4 "Strange nov line (%d)"
+                      (count-lines (point-min) (point)))))
         (forward-line 1))
        ;; A common bug in inn is that if you have posted an article and
        ;; then retrieves the active file, it will answer correctly --
         (forward-line 1))
        ;; A common bug in inn is that if you have posted an article and
        ;; then retrieves the active file, it will answer correctly --
@@ -4658,7 +4730,7 @@ current article will be taken into consideration."
        (let ((max (max (point) (mark)))
             articles article)
         (save-excursion
        (let ((max (max (point) (mark)))
             articles article)
         (save-excursion
-         (goto-char (min (min (point) (mark))))
+         (goto-char (min (point) (mark)))
           (while
               (and
                (push (setq article (gnus-summary-article-number)) articles)
           (while
               (and
                (push (setq article (gnus-summary-article-number)) articles)
@@ -5012,7 +5084,7 @@ The prefix argument ALL means to select all articles."
           (gnus-update-read-articles
            group (append gnus-newsgroup-unreads gnus-newsgroup-unselected))
           ;; Set the current article marks.
           (gnus-update-read-articles
            group (append gnus-newsgroup-unreads gnus-newsgroup-unselected))
           ;; Set the current article marks.
-         (let ((gnus-newsgroup-scored 
+         (let ((gnus-newsgroup-scored
                  (if (and (not gnus-save-score)
                           (not non-destructive))
                      nil
                  (if (and (not gnus-save-score)
                           (not non-destructive))
                      nil
@@ -5192,6 +5264,17 @@ The state which existed when entering the ephemeral is reset."
        (gnus-summary-recenter)
        (gnus-summary-position-point))))
  
        (gnus-summary-recenter)
        (gnus-summary-position-point))))
  
+(defun gnus-summary-preview-mime-message (arg)
+  "MIME decode and play this message."
+  (interactive "P")
+  (or gnus-show-mime
+      (let ((gnus-break-pages nil)
+           (gnus-show-mime t))
+       (gnus-summary-select-article t t)
+       ))
+  (select-window (get-buffer-window gnus-article-buffer))
+  )
+
  ;;; Dead summaries.
  
  (defvar gnus-dead-summary-mode-map nil)
  ;;; Dead summaries.
  
  (defvar gnus-dead-summary-mode-map nil)
@@ -5798,6 +5881,16 @@ Return nil if there are no unread articles."
         (gnus-summary-display-article (gnus-summary-article-number)))
      (gnus-summary-position-point)))
  
         (gnus-summary-display-article (gnus-summary-article-number)))
      (gnus-summary-position-point)))
  
+(defun gnus-summary-first-unread-subject ()
+  "Place the point on the subject line of the first unread article.
+Return nil if there are no unread articles."
+  (interactive)
+  (prog1
+      (when (gnus-summary-first-subject t)
+       (gnus-summary-show-thread)
+       (gnus-summary-first-subject t))
+    (gnus-summary-position-point)))
+
  (defun gnus-summary-first-article ()
    "Select the first article.
  Return nil if there are no articles."
  (defun gnus-summary-first-article ()
    "Select the first article.
  Return nil if there are no articles."
@@ -6142,7 +6235,7 @@ If ALL, mark even excluded ticked and dormants as read."
  (defsubst gnus-cut-thread (thread)
    "Go forwards in the thread until we find an article that we want to display."
    (when (or (eq gnus-fetch-old-headers 'some)
  (defsubst gnus-cut-thread (thread)
    "Go forwards in the thread until we find an article that we want to display."
    (when (or (eq gnus-fetch-old-headers 'some)
-           (eq gnus-fetch-old-headers 'invisible)          
+           (eq gnus-fetch-old-headers 'invisible)
             (eq gnus-build-sparse-threads 'some)
             (eq gnus-build-sparse-threads 'more))
      ;; Deal with old-fetched headers and sparse threads.
             (eq gnus-build-sparse-threads 'some)
             (eq gnus-build-sparse-threads 'more))
      ;; Deal with old-fetched headers and sparse threads.
@@ -6744,14 +6837,14 @@ to save in."
               (set-buffer buffer)
               (gnus-article-delete-invisible-text)
               (let ((ps-left-header
               (set-buffer buffer)
               (gnus-article-delete-invisible-text)
               (let ((ps-left-header
-                    (list 
+                    (list
                       (concat "("
                               (mail-header-subject gnus-current-headers) ")")
                       (concat "("
                               (mail-header-from gnus-current-headers) ")")))
                       (concat "("
                               (mail-header-subject gnus-current-headers) ")")
                       (concat "("
                               (mail-header-from gnus-current-headers) ")")))
-                   (ps-right-header 
-                    (list 
-                     "/pagenumberstring load" 
+                   (ps-right-header
+                    (list
+                     "/pagenumberstring load"
                       (concat "("
                               (mail-header-date gnus-current-headers) ")"))))
                 (gnus-run-hooks 'gnus-ps-print-hook)
                       (concat "("
                               (mail-header-date gnus-current-headers) ")"))))
                 (gnus-run-hooks 'gnus-ps-print-hook)
@@ -6771,6 +6864,7 @@ article massaging functions being run."
      (let ((gnus-have-all-headers t)
           gnus-article-display-hook
           gnus-article-prepare-hook
      (let ((gnus-have-all-headers t)
           gnus-article-display-hook
           gnus-article-prepare-hook
+         gnus-article-decode-hook
           gnus-break-pages
           gnus-show-mime
           gnus-visual)
           gnus-break-pages
           gnus-show-mime
           gnus-visual)
@@ -6943,7 +7037,7 @@ and `request-accept' functions."
            (set-buffer copy-buf)
            (when (gnus-request-article-this-buffer article gnus-newsgroup-name)
              (gnus-request-accept-article
            (set-buffer copy-buf)
            (when (gnus-request-article-this-buffer article gnus-newsgroup-name)
              (gnus-request-accept-article
-             to-newsgroup select-method (not articles)))))
+             to-newsgroup select-method (not articles) t))))
         ;; Crosspost the article.
         ((eq action 'crosspost)
          (let ((xref (message-tokenize-header
         ;; Crosspost the article.
         ((eq action 'crosspost)
          (let ((xref (message-tokenize-header
@@ -7057,7 +7151,7 @@ and `request-accept' functions."
  
         ;;;!!!Why is this necessary?
         (set-buffer gnus-summary-buffer)
  
         ;;;!!!Why is this necessary?
         (set-buffer gnus-summary-buffer)
-       
+
         (gnus-summary-goto-subject article)
         (when (eq action 'move)
           (gnus-summary-mark-article article gnus-canceled-mark))))
         (gnus-summary-goto-subject article)
         (when (eq action 'move)
           (gnus-summary-mark-article article gnus-canceled-mark))))
@@ -7090,7 +7184,7 @@ re-spool using this method."
  (defcustom gnus-summary-respool-default-method nil
    "Default method for respooling an article.
  If nil, use to the current newsgroup method."
  (defcustom gnus-summary-respool-default-method nil
    "Default method for respooling an article.
  If nil, use to the current newsgroup method."
-  :type `(choice (gnus-select-method :value (nnml ""))
+  :type '(choice (gnus-select-method :value (nnml ""))
                  (const nil))
    :group 'gnus-summary-mail)
  
                  (const nil))
    :group 'gnus-summary-mail)
  
@@ -7151,9 +7245,8 @@ latter case, they will be copied into the relevant groups."
         (error "Can't read %s" file))
      (save-excursion
        (set-buffer (gnus-get-buffer-create " *import file*"))
         (error "Can't read %s" file))
      (save-excursion
        (set-buffer (gnus-get-buffer-create " *import file*"))
-      (buffer-disable-undo (current-buffer))
        (erase-buffer)
        (erase-buffer)
-      (insert-file-contents file)
+      (nnheader-insert-file-contents file)
        (goto-char (point-min))
        (unless (nnheader-article-p)
         ;; This doesn't look like an article, so we fudge some headers.
        (goto-char (point-min))
        (unless (nnheader-article-p)
         ;; This doesn't look like an article, so we fudge some headers.
@@ -7317,7 +7410,8 @@ groups."
        (if (and (not read-only)
                (not (gnus-request-replace-article
                      (cdr gnus-article-current) (car gnus-article-current)
        (if (and (not read-only)
                (not (gnus-request-replace-article
                      (cdr gnus-article-current) (car gnus-article-current)
-                    (current-buffer))))
+                    (current-buffer)
+                    (not gnus-article-decoded-p))))
           (error "Couldn't replace article")
         ;; Update the summary buffer.
         (if (and references
           (error "Couldn't replace article")
         ;; Update the summary buffer.
         (if (and references
@@ -7518,7 +7612,7 @@ the actual number of articles marked is returned."
    "Mark ARTICLE replied and update the summary line."
    (push article gnus-newsgroup-replied)
    (let ((buffer-read-only nil))
    "Mark ARTICLE replied and update the summary line."
    (push article gnus-newsgroup-replied)
    (let ((buffer-read-only nil))
-    (when (gnus-summary-goto-subject article)
+    (when (gnus-summary-goto-subject article nil t)
        (gnus-summary-update-secondary-mark article))))
  
  (defun gnus-summary-set-bookmark (article)
        (gnus-summary-update-secondary-mark article))))
  
  (defun gnus-summary-set-bookmark (article)
@@ -8957,6 +9051,38 @@ save those articles instead."
            (gnus-summary-exit))
          buffers)))))
  
            (gnus-summary-exit))
          buffers)))))
  
+
+;;; @ for mime-partial
+;;;
+
+(defun gnus-request-partial-message ()
+  (save-excursion
+    (let ((number (gnus-summary-article-number))
+         (group gnus-newsgroup-name)
+         (mother gnus-article-buffer))
+      (set-buffer (get-buffer-create " *Partial Article*"))
+      (erase-buffer)
+      (setq mime-preview-buffer mother)
+      (gnus-request-article-this-buffer number group)
+      (mime-parse-buffer)
+      )))
+
+(autoload 'mime-combine-message/partial-pieces-automatically
+  "mime-partial"
+  "Internal method to combine message/partial messages automatically.")
+
+(mime-add-condition
+ 'action '((type . message)(subtype . partial)
+          (major-mode . gnus-original-article-mode)
+          (method . mime-combine-message/partial-pieces-automatically)
+          (summary-buffer-exp . gnus-summary-buffer)
+          (request-partial-message-method . gnus-request-partial-message)
+          ))
+
+
+;;; @ end
+;;;
+
  (gnus-ems-redefine)
  
  (provide 'gnus-sum)
  (gnus-ems-redefine)
  
  (provide 'gnus-sum)