* gnus-sum.el (gnus-summary-preview-mime-message): Always select the article

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

index 6786373..595c6f7 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1,8 +1,9 @@
  ;;; gnus-art.el --- article mode commands for Semi-gnus
  ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc.
  
  ;;; gnus-art.el --- article mode commands for Semi-gnus
  ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc.
  
-;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
-;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
+;;     MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;     Katsumi Yamaoka  <yamaoka@jpl.org>
  ;; Keywords: mail, news, MIME
  
  ;; This file is part of GNU Emacs.
  ;; Keywords: mail, news, MIME
  
  ;; This file is part of GNU Emacs.
@@ -94,10 +95,25 @@
    :group 'gnus-article)
  
  (defcustom gnus-ignored-headers
    :group 'gnus-article)
  
  (defcustom gnus-ignored-headers
-  '("^Path:" "^Posting-Version:" "^Article-I.D.:" "^Expires:"
-    "^Date-Received:" "^References:" "^Control:" "^Xref:" "^Lines:"
-    "^Posted:" "^Relay-Version:" "^Message-ID:" "^Nf-ID:" "^Nf-From:"
-    "^Approved:" "^Sender:" "^Received:" "^Mail-from:")
+  '("^Path:" "^Expires:" "^Date-Received:" "^References:" "^Xref:" "^Lines:"
+    "^Relay-Version:" "^Message-ID:" "^Approved:" "^Sender:" "^Received:" 
+    "^X-UIDL:" "^MIME-Version:" "^Return-Path:" "^In-Reply-To:"
+    "^Content-Type:" "^Content-Transfer-Encoding:" "^X-WebTV-Signature:"
+    "^X-MimeOLE:" "^X-MSMail-Priority:" "^X-Priority:" "^X-Loop:"
+    "^X-Authentication-Warning:" "^X-MIME-Autoconverted:" "^X-Face:"
+    "^X-Attribution:" "^X-Originating-IP:" "^Delivered-To:"
+    "^NNTP-[-A-Za-z]+:" "^Distribution:" "^X-no-archive:" "^X-Trace:"
+    "^X-Complaints-To:" "^X-NNTP-Posting-Host:" "^X-Orig.*:"
+    "^Abuse-Reports-To:" "^Cache-Post-Path:" "^X-Article-Creation-Date:"
+    "^X-Poster:" "^X-Mail2News-Path:" "^X-Server-Date:" "^X-Cache:"
+    "^Originator:" "^X-Problems-To:" "^X-Auth-User:" "^X-Post-Time:" 
+    "^X-Admin:" "^X-UID:" "^Resent-[-A-Za-z]+:" "^X-Mailing-List:"
+    "^Precedence:" "^Original-[-A-Za-z]+:" "^X-filename:" "^X-Orcpt:"
+    "^Old-Received:" "^X-Pgp-Fingerprint:" "^X-Pgp-Key-Id:"
+    "^X-Pgp-Public-Key-Url:" "^X-Auth:" "^X-From-Line:"
+    "^X-Gnus-Article-Number:" "^X-Majordomo:" "^X-Url:" "^X-Sender:"
+    "^X-Mailing-List:" "^MBOX-Line" "^Priority:" "^X-Pgp" "^X400-[-A-Za-z]+:"
+    "^Status:")
    "*All headers that start with this regexp will be hidden.
  This variable can also be a list of regexps of headers to be ignored.
  If `gnus-visible-headers' is non-nil, this variable will be ignored."
    "*All headers that start with this regexp will be hidden.
  This variable can also be a list of regexps of headers to be ignored.
  If `gnus-visible-headers' is non-nil, this variable will be ignored."
@@ -107,7 +123,7 @@ If `gnus-visible-headers' is non-nil, this variable will be ignored."
    :group 'gnus-article-hiding)
  
  (defcustom gnus-visible-headers
    :group 'gnus-article-hiding)
  
  (defcustom gnus-visible-headers
-  "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-From:\\|X-Sent:"
+  "From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^\\(Mail-\\)?Followup-To:\\|^\\(Mail-\\)?Reply-To:\\|^Mail-Copies-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-From:\\|X-Sent:"
    "*All headers that do not match this regexp will be hidden.
  This variable can also be a list of regexp of headers to remain visible.
  If this variable is non-nil, `gnus-ignored-headers' will be ignored."
    "*All headers that do not match this regexp will be hidden.
  This variable can also be a list of regexp of headers to remain visible.
  If this variable is non-nil, `gnus-ignored-headers' will be ignored."
@@ -130,7 +146,7 @@ this list."
    :group 'gnus-article-hiding)
  
  (defcustom gnus-boring-article-headers '(empty followup-to reply-to)
    :group 'gnus-article-hiding)
  
  (defcustom gnus-boring-article-headers '(empty followup-to reply-to)
-  "*Headers that are only to be displayed if they have interesting data.
+  "Headers that are only to be displayed if they have interesting data.
  Possible values in this list are `empty', `newsgroups', `followup-to',
  `reply-to', `date', `long-to', and `many-to'."
    :type '(set (const :tag "Headers with no content." empty)
  Possible values in this list are `empty', `newsgroups', `followup-to',
  `reply-to', `date', `long-to', and `many-to'."
    :type '(set (const :tag "Headers with no content." empty)
@@ -143,7 +159,7 @@ Possible values in this list are `empty', `newsgroups', `followup-to',
    :group 'gnus-article-hiding)
  
  (defcustom gnus-signature-separator '("^-- $" "^-- *$")
    :group 'gnus-article-hiding)
  
  (defcustom gnus-signature-separator '("^-- $" "^-- *$")
-  "*Regexp matching signature separator.
+  "Regexp matching signature separator.
  This can also be a list of regexps.  In that case, it will be checked
  from head to tail looking for a separator.  Searches will be done from
  the end of the buffer."
  This can also be a list of regexps.  In that case, it will be checked
  from head to tail looking for a separator.  Searches will be done from
  the end of the buffer."
@@ -151,7 +167,7 @@ the end of the buffer."
    :group 'gnus-article-signature)
  
  (defcustom gnus-signature-limit nil
    :group 'gnus-article-signature)
  
  (defcustom gnus-signature-limit nil
-   "*Provide a limit to what is considered a signature.
+   "Provide a limit to what is considered a signature.
  If it is a number, no signature may not be longer (in characters) than
  that number.  If it is a floating point number, no signature may be
  longer (in lines) than that number.  If it is a function, the function
  If it is a number, no signature may not be longer (in characters) than
  that number.  If it is a floating point number, no signature may be
  longer (in lines) than that number.  If it is a function, the function
@@ -165,7 +181,7 @@ regexp.  If it matches, the text in question is not a signature."
    :group 'gnus-article-signature)
  
  (defcustom gnus-hidden-properties '(invisible t intangible t)
    :group 'gnus-article-signature)
  
  (defcustom gnus-hidden-properties '(invisible t intangible t)
-  "*Property list to use for hiding text."
+  "Property list to use for hiding text."
    :type 'sexp
    :group 'gnus-article-hiding)
  
    :type 'sexp
    :group 'gnus-article-hiding)
  
@@ -178,7 +194,7 @@ asynchronously.      The compressed face will be piped to this command."
    :group 'gnus-article-washing)
  
  (defcustom gnus-article-x-face-too-ugly nil
    :group 'gnus-article-washing)
  
  (defcustom gnus-article-x-face-too-ugly nil
-  "*Regexp matching posters whose face shouldn't be shown automatically."
+  "Regexp matching posters whose face shouldn't be shown automatically."
    :type '(choice regexp (const nil))
    :group 'gnus-article-washing)
  
    :type '(choice regexp (const nil))
    :group 'gnus-article-washing)
  
@@ -199,7 +215,7 @@ asynchronously.      The compressed face will be piped to this command."
          (lambda (spec)
            (list
             (format format (car spec) (cadr spec))
          (lambda (spec)
            (list
             (format format (car spec) (cadr spec))
-           2 3 (intern (format "gnus-emphasis-%s" (caddr spec)))))
+           2 3 (intern (format "gnus-emphasis-%s" (nth 2 spec)))))
          types)))
    "*Alist that says how to fontify certain phrases.
  Each item looks like this:
          types)))
    "*Alist that says how to fontify certain phrases.
  Each item looks like this:
@@ -249,7 +265,7 @@ Esample: (_/*word*/_)."
    :group 'gnus-article-emphasis)
  
  (defcustom gnus-article-time-format "%a, %b %d %Y %T %Z"
    :group 'gnus-article-emphasis)
  
  (defcustom gnus-article-time-format "%a, %b %d %Y %T %Z"
-  "*Format for display of Date headers in article bodies.
+  "Format for display of Date headers in article bodies.
  See `format-time-string' for the possible values.
  
  The variable can also be function, which should return a complete Date
  See `format-time-string' for the possible values.
  
  The variable can also be function, which should return a complete Date
@@ -283,7 +299,7 @@ each invocation of the saving commands."
                  (sexp :tag "once" :format "%t\n" :value t)))
  
  (defcustom gnus-saved-headers gnus-visible-headers
                  (sexp :tag "once" :format "%t\n" :value t)))
  
  (defcustom gnus-saved-headers gnus-visible-headers
-  "*Headers to keep if `gnus-save-all-headers' is nil.
+  "Headers to keep if `gnus-save-all-headers' is nil.
  If `gnus-save-all-headers' is non-nil, this variable will be ignored.
  If that variable is nil, however, all headers that match this regexp
  will be kept while the rest will be deleted before saving."
  If `gnus-save-all-headers' is non-nil, this variable will be ignored.
  If that variable is nil, however, all headers that match this regexp
  will be kept while the rest will be deleted before saving."
@@ -291,7 +307,7 @@ will be kept while the rest will be deleted before saving."
    :type 'regexp)
  
  (defcustom gnus-default-article-saver 'gnus-summary-save-in-rmail
    :type 'regexp)
  
  (defcustom gnus-default-article-saver 'gnus-summary-save-in-rmail
-  "*A function to save articles in your favourite format.
+  "A function to save articles in your favourite format.
  The function must be interactively callable (in other words, it must
  be an Emacs command).
  
  The function must be interactively callable (in other words, it must
  be an Emacs command).
  
@@ -312,25 +328,25 @@ Gnus provides the following functions:
                 (function-item gnus-summary-write-to-file)))
  
  (defcustom gnus-rmail-save-name 'gnus-plain-save-name
                 (function-item gnus-summary-write-to-file)))
  
  (defcustom gnus-rmail-save-name 'gnus-plain-save-name
-  "*A function generating a file name to save articles in Rmail format.
+  "A function generating a file name to save articles in Rmail format.
  The function is called with NEWSGROUP, HEADERS, and optional LAST-FILE."
    :group 'gnus-article-saving
    :type 'function)
  
  (defcustom gnus-mail-save-name 'gnus-plain-save-name
  The function is called with NEWSGROUP, HEADERS, and optional LAST-FILE."
    :group 'gnus-article-saving
    :type 'function)
  
  (defcustom gnus-mail-save-name 'gnus-plain-save-name
-  "*A function generating a file name to save articles in Unix mail format.
+  "A function generating a file name to save articles in Unix mail format.
  The function is called with NEWSGROUP, HEADERS, and optional LAST-FILE."
    :group 'gnus-article-saving
    :type 'function)
  
  (defcustom gnus-folder-save-name 'gnus-folder-save-name
  The function is called with NEWSGROUP, HEADERS, and optional LAST-FILE."
    :group 'gnus-article-saving
    :type 'function)
  
  (defcustom gnus-folder-save-name 'gnus-folder-save-name
-  "*A function generating a file name to save articles in MH folder.
+  "A function generating a file name to save articles in MH folder.
  The function is called with NEWSGROUP, HEADERS, and optional LAST-FOLDER."
    :group 'gnus-article-saving
    :type 'function)
  
  (defcustom gnus-file-save-name 'gnus-numeric-save-name
  The function is called with NEWSGROUP, HEADERS, and optional LAST-FOLDER."
    :group 'gnus-article-saving
    :type 'function)
  
  (defcustom gnus-file-save-name 'gnus-numeric-save-name
-  "*A function generating a file name to save articles in article format.
+  "A function generating a file name to save articles in article format.
  The function is called with NEWSGROUP, HEADERS, and optional
  LAST-FILE."
    :group 'gnus-article-saving
  The function is called with NEWSGROUP, HEADERS, and optional
  LAST-FILE."
    :group 'gnus-article-saving
@@ -364,18 +380,20 @@ be used as possible file names."
                          (sexp :value nil))))
  
  (defcustom gnus-strict-mime t
                          (sexp :value nil))))
  
  (defcustom gnus-strict-mime t
-  "*If nil, MIME-decode even if there is no Mime-Version header."
+  "*If nil, MIME-decode even if there is no MIME-Version header."
    :group 'gnus-article-mime
    :type 'boolean)
  
    :group 'gnus-article-mime
    :type 'boolean)
  
-(defcustom gnus-show-mime-method 'gnus-article-preview-mime-message
-  "*Function to process a MIME message.
+(defcustom gnus-article-display-method-for-mime
+  'gnus-article-display-mime-message
+  "Function to display a MIME message.
  The function is called from the article buffer."
    :group 'gnus-article-mime
    :type 'function)
  
  The function is called from the article buffer."
    :group 'gnus-article-mime
    :type 'function)
  
-(defcustom gnus-decode-encoded-word-method 'gnus-article-decode-encoded-word
-  "*Function to decode MIME encoded words.
+(defcustom gnus-article-display-method-for-traditional
+  'gnus-article-display-traditional-message
+  "*Function to display a traditional message.
  The function is called from the article buffer."
    :group 'gnus-article-mime
    :type 'function)
  The function is called from the article buffer."
    :group 'gnus-article-mime
    :type 'function)
@@ -415,7 +433,7 @@ If you want to run a special decoding program like nkf, use this hook."
    :group 'gnus-article-various)
  
  (defcustom gnus-article-button-face 'bold
    :group 'gnus-article-various)
  
  (defcustom gnus-article-button-face 'bold
-  "*Face used for highlighting buttons in the article buffer.
+  "Face used for highlighting buttons in the article buffer.
  
  An article button is a piece of text that you can activate by pressing
  `RET' or `mouse-2' above it."
  
  An article button is a piece of text that you can activate by pressing
  `RET' or `mouse-2' above it."
@@ -423,7 +441,7 @@ An article button is a piece of text that you can activate by pressing
    :group 'gnus-article-buttons)
  
  (defcustom gnus-article-mouse-face 'highlight
    :group 'gnus-article-buttons)
  
  (defcustom gnus-article-mouse-face 'highlight
-  "*Face used for mouse highlighting in the article buffer.
+  "Face used for mouse highlighting in the article buffer.
  
  Article buttons will be displayed in this face when the cursor is
  above them."
  
  Article buttons will be displayed in this face when the cursor is
  above them."
@@ -431,7 +449,7 @@ above them."
    :group 'gnus-article-buttons)
  
  (defcustom gnus-signature-face 'gnus-signature-face
    :group 'gnus-article-buttons)
  
  (defcustom gnus-signature-face 'gnus-signature-face
-  "*Face used for highlighting a signature in the article buffer.
+  "Face used for highlighting a signature in the article buffer.
  Obsolete; use the face `gnus-signature-face' for customizations instead."
    :type 'face
    :group 'gnus-article-highlight
  Obsolete; use the face `gnus-signature-face' for customizations instead."
    :type 'face
    :group 'gnus-article-highlight
@@ -447,12 +465,12 @@ Obsolete; use the face `gnus-signature-face' for customizations instead."
  (defface gnus-header-from-face
    '((((class color)
        (background dark))
  (defface gnus-header-from-face
    '((((class color)
        (background dark))
-     (:foreground "spring green" :bold t))
+     (:foreground "spring green"))
      (((class color)
        (background light))
      (((class color)
        (background light))
-     (:foreground "red3" :bold t))
+     (:foreground "red3"))
      (t
      (t
-     (:bold t :italic t)))
+     (:italic t)))
    "Face used for displaying from headers."
    :group 'gnus-article-headers
    :group 'gnus-article-highlight)
    "Face used for displaying from headers."
    :group 'gnus-article-headers
    :group 'gnus-article-highlight)
@@ -460,10 +478,10 @@ Obsolete; use the face `gnus-signature-face' for customizations instead."
  (defface gnus-header-subject-face
    '((((class color)
        (background dark))
  (defface gnus-header-subject-face
    '((((class color)
        (background dark))
-     (:foreground "SeaGreen3" :bold t))
+     (:foreground "SeaGreen3"))
      (((class color)
        (background light))
      (((class color)
        (background light))
-     (:foreground "red4" :bold t))
+     (:foreground "red4"))
      (t
       (:bold t :italic t)))
    "Face used for displaying subject headers."
      (t
       (:bold t :italic t)))
    "Face used for displaying subject headers."
@@ -473,12 +491,12 @@ Obsolete; use the face `gnus-signature-face' for customizations instead."
  (defface gnus-header-newsgroups-face
    '((((class color)
        (background dark))
  (defface gnus-header-newsgroups-face
    '((((class color)
        (background dark))
-     (:foreground "yellow" :bold t :italic t))
+     (:foreground "yellow" :italic t))
      (((class color)
        (background light))
      (((class color)
        (background light))
-     (:foreground "MidnightBlue" :bold t :italic t))
+     (:foreground "MidnightBlue" :italic t))
      (t
      (t
-     (:bold t :italic t)))
+     (:italic t)))
    "Face used for displaying newsgroups headers."
    :group 'gnus-article-headers
    :group 'gnus-article-highlight)
    "Face used for displaying newsgroups headers."
    :group 'gnus-article-headers
    :group 'gnus-article-highlight)
@@ -537,6 +555,7 @@ displayed by the first non-nil matching CONTENT face."
  ;;; Internal variables
  
  (defvar article-lapsed-timer nil)
  ;;; Internal variables
  
  (defvar article-lapsed-timer nil)
+(defvar gnus-article-current-summary nil)
  
  (defvar gnus-article-mode-syntax-table
    (let ((table (copy-syntax-table text-mode-syntax-table)))
  
  (defvar gnus-article-mode-syntax-table
    (let ((table (copy-syntax-table text-mode-syntax-table)))
@@ -550,8 +569,8 @@ Initialized from `text-mode-syntax-table.")
  (defvar gnus-save-article-buffer nil)
  
  (defvar gnus-article-mode-line-format-alist
  (defvar gnus-save-article-buffer nil)
  
  (defvar gnus-article-mode-line-format-alist
-    (nconc '((?w (gnus-article-wash-status) ?s))
-          gnus-summary-mode-line-format-alist))
+  (nconc '((?w (gnus-article-wash-status) ?s))
+        gnus-summary-mode-line-format-alist))
  
  (defvar gnus-number-of-articles-to-be-saved nil)
  
  
  (defvar gnus-number-of-articles-to-be-saved nil)
  
@@ -578,7 +597,7 @@ Initialized from `text-mode-syntax-table.")
     b e (cons 'article-type (cons type gnus-hidden-properties))))
  
  (defun gnus-article-unhide-text-type (b e type)
     b e (cons 'article-type (cons type gnus-hidden-properties))))
  
  (defun gnus-article-unhide-text-type (b e type)
-  "Hide text of TYPE between B and E."
+  "Unhide text of TYPE between B and E."
    (remove-text-properties
     b e (cons 'article-type (cons type gnus-hidden-properties)))
    (when (memq 'intangible gnus-hidden-properties)
    (remove-text-properties
     b e (cons 'article-type (cons type gnus-hidden-properties)))
    (when (memq 'intangible gnus-hidden-properties)
@@ -640,6 +659,7 @@ always hide."
        (save-excursion
         (save-restriction
           (let ((buffer-read-only nil)
        (save-excursion
         (save-restriction
           (let ((buffer-read-only nil)
+               (case-fold-search t)
                 (props (nconc (list 'article-type 'headers)
                               gnus-hidden-properties))
                 (max (1+ (length gnus-sorted-header-list)))
                 (props (nconc (list 'article-type 'headers)
                               gnus-hidden-properties))
                 (max (1+ (length gnus-sorted-header-list)))
@@ -656,7 +676,7 @@ always hide."
                              (listp gnus-visible-headers))
                         (mapconcat 'identity gnus-visible-headers "\\|"))))
                 (inhibit-point-motion-hooks t)
                              (listp gnus-visible-headers))
                         (mapconcat 'identity gnus-visible-headers "\\|"))))
                 (inhibit-point-motion-hooks t)
-               want-list beg)
+               beg)
             ;; First we narrow to just the headers.
             (widen)
             (goto-char (point-min))
             ;; First we narrow to just the headers.
             (widen)
             (goto-char (point-min))
@@ -749,8 +769,8 @@ always hide."
                        from reply-to
                        (ignore-errors
                          (equal
                        from reply-to
                        (ignore-errors
                          (equal
-                         (nth 1 (mail-extract-address-components from))
-                         (nth 1 (mail-extract-address-components reply-to)))))
+                         (nth 1 (funcall gnus-extract-address-components from))
+                         (nth 1 (funcall gnus-extract-address-components reply-to)))))
                   (gnus-article-hide-header "reply-to"))))
              ((eq elem 'date)
               (let ((date (message-fetch-field "date")))
                   (gnus-article-hide-header "reply-to"))))
              ((eq elem 'date)
               (let ((date (message-fetch-field "date")))
@@ -821,7 +841,7 @@ characters to translate to."
      (when (search-forward "\n\n" nil t)
        (let ((buffer-read-only nil))
         (while (search-forward "\b" nil t)
      (when (search-forward "\n\n" nil t)
        (let ((buffer-read-only nil))
         (while (search-forward "\b" nil t)
-         (let ((next (following-char))
+         (let ((next (char-after))
                 (previous (char-after (- (point) 2))))
             ;; We do the boldification/underlining by hiding the
             ;; overstrikes and putting the proper text property
                 (previous (char-after (- (point) 2))))
             ;; We do the boldification/underlining by hiding the
             ;; overstrikes and putting the proper text property
@@ -854,7 +874,7 @@ characters to translate to."
             (adaptive-fill-mode t))
         (while (not (eobp))
           (and (>= (current-column) (min fill-column (window-width)))
             (adaptive-fill-mode t))
         (while (not (eobp))
           (and (>= (current-column) (min fill-column (window-width)))
-              (/= (preceding-char) ?:)
+              (not (eq (char-before) ?:))
                (fill-paragraph nil))
           (end-of-line 2))))))
  
                (fill-paragraph nil))
           (end-of-line 2))))))
  
@@ -891,12 +911,13 @@ characters to translate to."
        (delete-process "article-x-face"))
      (let ((inhibit-point-motion-hooks t)
           (case-fold-search t)
        (delete-process "article-x-face"))
      (let ((inhibit-point-motion-hooks t)
           (case-fold-search t)
-         from)
+         from last)
        (save-restriction
         (nnheader-narrow-to-headers)
         (setq from (message-fetch-field "from"))
         (goto-char (point-min))
         (while (and gnus-article-x-face-command
        (save-restriction
         (nnheader-narrow-to-headers)
         (setq from (message-fetch-field "from"))
         (goto-char (point-min))
         (while (and gnus-article-x-face-command
+                   (not last)
                     (or force
                         ;; Check whether this face is censored.
                         (not gnus-article-x-face-too-ugly)
                     (or force
                         ;; Check whether this face is censored.
                         (not gnus-article-x-face-too-ugly)
@@ -905,6 +926,12 @@ characters to translate to."
                                                 from))))
                     ;; Has to be present.
                     (re-search-forward "^X-Face: " nil t))
                                                 from))))
                     ;; Has to be present.
                     (re-search-forward "^X-Face: " nil t))
+         ;; This used to try to do multiple faces (`while' instead of
+         ;; `when' above), but (a) sending multiple EOFs to xv doesn't
+         ;; work (b) it can crash some versions of Emacs (c) are
+         ;; multiple faces really something to encourage?
+         (when (stringp gnus-article-x-face-command)
+           (setq last t))
           ;; We now have the area of the buffer where the X-Face is stored.
           (save-excursion
             (let ((beg (point))
           ;; We now have the area of the buffer where the X-Face is stored.
           (save-excursion
             (let ((beg (point))
@@ -928,8 +955,11 @@ characters to translate to."
  (defun gnus-article-decode-rfc1522 ()
    "Decode MIME encoded-words in header fields."
    (let (buffer-read-only)
  (defun gnus-article-decode-rfc1522 ()
    "Decode MIME encoded-words in header fields."
    (let (buffer-read-only)
-    (eword-decode-header)
-    ))
+    (let ((charset (save-excursion
+                    (set-buffer gnus-summary-buffer)
+                    default-mime-charset)))
+      (mime-decode-header-in-buffer charset)
+      )))
  
  (defun article-hide-pgp (&optional arg)
    "Toggle hiding of any PGP headers and signatures in the current article.
  
  (defun article-hide-pgp (&optional arg)
    "Toggle hiding of any PGP headers and signatures in the current article.
@@ -944,27 +974,25 @@ always hide."
         (goto-char (point-min))
         ;; Hide the "header".
         (when (search-forward "\n-----BEGIN PGP SIGNED MESSAGE-----\n" nil t)
         (goto-char (point-min))
         ;; Hide the "header".
         (when (search-forward "\n-----BEGIN PGP SIGNED MESSAGE-----\n" nil t)
-         (gnus-article-hide-text-type (1+ (match-beginning 0))
-                                      (match-end 0) 'pgp)
+         (delete-region (1+ (match-beginning 0)) (match-end 0))
           (setq beg (point))
           ;; Hide the actual signature.
           (and (search-forward "\n-----BEGIN PGP SIGNATURE-----\n" nil t)
                (setq end (1+ (match-beginning 0)))
           (setq beg (point))
           ;; Hide the actual signature.
           (and (search-forward "\n-----BEGIN PGP SIGNATURE-----\n" nil t)
                (setq end (1+ (match-beginning 0)))
-              (gnus-article-hide-text-type
+              (delete-region
                 end
                 (if (search-forward "\n-----END PGP SIGNATURE-----\n" nil t)
                     (match-end 0)
                   ;; Perhaps we shouldn't hide to the end of the buffer
                   ;; if there is no end to the signature?
                 end
                 (if (search-forward "\n-----END PGP SIGNATURE-----\n" nil t)
                     (match-end 0)
                   ;; Perhaps we shouldn't hide to the end of the buffer
                   ;; if there is no end to the signature?
-                 (point-max))
-               'pgp))
+                 (point-max))))
           ;; Hide "- " PGP quotation markers.
           (when (and beg end)
             (narrow-to-region beg end)
             (goto-char (point-min))
             (while (re-search-forward "^- " nil t)
           ;; Hide "- " PGP quotation markers.
           (when (and beg end)
             (narrow-to-region beg end)
             (goto-char (point-min))
             (while (re-search-forward "^- " nil t)
-             (gnus-article-hide-text-type
-              (match-beginning 0) (match-end 0) 'pgp))
+             (delete-region
+              (match-beginning 0) (match-end 0)))
             (widen))
           (gnus-run-hooks 'gnus-article-hide-pgp-hook))))))
  
             (widen))
           (gnus-run-hooks 'gnus-article-hide-pgp-hook))))))
  
@@ -1067,42 +1095,32 @@ always hide."
        (while (re-search-forward "^[ \t]*\n" nil t)
         (replace-match "" t t)))))
  
        (while (re-search-forward "^[ \t]*\n" nil t)
         (replace-match "" t t)))))
  
-(defvar mime::preview/content-list)
-(defvar mime::preview-content-info/point-min)
  (defun gnus-article-narrow-to-signature ()
    "Narrow to the signature; return t if a signature is found, else nil."
    (widen)
  (defun gnus-article-narrow-to-signature ()
    "Narrow to the signature; return t if a signature is found, else nil."
    (widen)
-  (when (and (boundp 'mime::preview/content-list)
-            mime::preview/content-list)
-    ;; We have a MIMEish article, so we use the MIME data to narrow.
-    (let ((pcinfo (car (last mime::preview/content-list))))
-      (ignore-errors
-       (narrow-to-region
-        (funcall (intern "mime::preview-content-info/point-min") pcinfo)
-        (point-max)))))
-
-  (when (gnus-article-search-signature)
-    (forward-line 1)
-    ;; Check whether we have some limits to what we consider
-    ;; to be a signature.
-    (let ((limits (if (listp gnus-signature-limit) gnus-signature-limit
-                   (list gnus-signature-limit)))
-         limit limited)
-      (while (setq limit (pop limits))
-       (if (or (and (integerp limit)
-                    (< (- (point-max) (point)) limit))
-               (and (floatp limit)
-                    (< (count-lines (point) (point-max)) limit))
-               (and (gnus-functionp limit)
-                    (funcall limit))
-               (and (stringp limit)
-                    (not (re-search-forward limit nil t))))
-           ()                          ; This limit did not succeed.
-         (setq limited t
-               limits nil)))
-      (unless limited
-       (narrow-to-region (point) (point-max))
-       t))))
+  (let ((inhibit-point-motion-hooks t))
+    (when (gnus-article-search-signature)
+      (forward-line 1)
+      ;; Check whether we have some limits to what we consider
+      ;; to be a signature.
+      (let ((limits (if (listp gnus-signature-limit) gnus-signature-limit
+                     (list gnus-signature-limit)))
+           limit limited)
+       (while (setq limit (pop limits))
+         (if (or (and (integerp limit)
+                      (< (- (point-max) (point)) limit))
+                 (and (floatp limit)
+                      (< (count-lines (point) (point-max)) limit))
+                 (and (gnus-functionp limit)
+                      (funcall limit))
+                 (and (stringp limit)
+                      (not (re-search-forward limit nil t))))
+             ()                        ; This limit did not succeed.
+           (setq limited t
+                 limits nil)))
+       (unless limited
+         (narrow-to-region (point) (point-max))
+         t)))))
  
  (defun gnus-article-search-signature ()
    "Search the current buffer for the signature separator.
  
  (defun gnus-article-search-signature ()
    "Search the current buffer for the signature separator.
@@ -1179,8 +1197,7 @@ means show, 0 means toggle."
  
  (defun gnus-article-hidden-text-p (type)
    "Say whether the current buffer contains hidden text of type TYPE."
  
  (defun gnus-article-hidden-text-p (type)
    "Say whether the current buffer contains hidden text of type TYPE."
-  (let ((start (point-min))
-       (pos (text-property-any (point-min) (point-max) 'article-type type)))
+  (let ((pos (text-property-any (point-min) (point-max) 'article-type type)))
      (while (and pos
                 (not (get-text-property pos 'invisible)))
        (setq pos
      (while (and pos
                 (not (get-text-property pos 'invisible)))
        (setq pos
@@ -1378,13 +1395,14 @@ function and want to see what the date was before converting."
  
  (defun article-update-date-lapsed ()
    "Function to be run from a timer to update the lapsed time line."
  
  (defun article-update-date-lapsed ()
    "Function to be run from a timer to update the lapsed time line."
-  (save-excursion
-    (ignore-errors
-      (when (gnus-buffer-live-p gnus-article-buffer)
-       (set-buffer gnus-article-buffer)
-       (goto-char (point-min))
-       (when (re-search-forward "^X-Sent:" nil t)
-         (article-date-lapsed t))))))
+  (let (deactivate-mark)
+    (save-excursion
+      (ignore-errors
+        (when (gnus-buffer-live-p gnus-article-buffer)
+          (set-buffer gnus-article-buffer)
+          (goto-char (point-min))
+          (when (re-search-forward "^X-Sent:" nil t)
+            (article-date-lapsed t)))))))
  
  (defun gnus-start-date-timer (&optional n)
    "Start a timer to update the X-Sent header in the article buffers.
  
  (defun gnus-start-date-timer (&optional n)
    "Start a timer to update the X-Sent header in the article buffers.
@@ -1394,7 +1412,7 @@ is to run."
    (unless n
      (setq n 1))
    (gnus-stop-date-timer)
    (unless n
      (setq n 1))
    (gnus-stop-date-timer)
-  (setq article-lapsed-timer 
+  (setq article-lapsed-timer
         (nnheader-run-at-time 1 n 'article-update-date-lapsed)))
  
  (defun gnus-stop-date-timer ()
         (nnheader-run-at-time 1 n 'article-update-date-lapsed)))
  
  (defun gnus-stop-date-timer ()
@@ -1482,7 +1500,7 @@ This format is defined by the `gnus-article-time-format' variable."
              (gnus-number-of-articles-to-be-saved
               (when (eq gnus-prompt-before-saving t)
                 num)))                  ; Magic
              (gnus-number-of-articles-to-be-saved
               (when (eq gnus-prompt-before-saving t)
                 num)))                  ; Magic
-       (set-buffer gnus-summary-buffer)
+       (set-buffer gnus-article-current-summary)
         (funcall gnus-default-article-saver filename)))))
  
  (defun gnus-read-save-file-name (prompt &optional filename
         (funcall gnus-default-article-saver filename)))))
  
  (defun gnus-read-save-file-name (prompt &optional filename
@@ -1579,7 +1597,6 @@ This format is defined by the `gnus-article-time-format' variable."
    "Append this article to Rmail file.
  Optional argument FILENAME specifies file name.
  Directory to save to is default to `gnus-article-save-directory'."
    "Append this article to Rmail file.
  Optional argument FILENAME specifies file name.
  Directory to save to is default to `gnus-article-save-directory'."
-  (interactive)
    (setq filename (gnus-read-save-file-name
                   "Save %s in rmail file:" filename
                   gnus-rmail-save-name gnus-newsgroup-name
    (setq filename (gnus-read-save-file-name
                   "Save %s in rmail file:" filename
                   gnus-rmail-save-name gnus-newsgroup-name
@@ -1595,7 +1612,6 @@ Directory to save to is default to `gnus-article-save-directory'."
    "Append this article to Unix mail file.
  Optional argument FILENAME specifies file name.
  Directory to save to is default to `gnus-article-save-directory'."
    "Append this article to Unix mail file.
  Optional argument FILENAME specifies file name.
  Directory to save to is default to `gnus-article-save-directory'."
-  (interactive)
    (setq filename (gnus-read-save-file-name
                   "Save %s in Unix mail file:" filename
                   gnus-mail-save-name gnus-newsgroup-name
    (setq filename (gnus-read-save-file-name
                   "Save %s in Unix mail file:" filename
                   gnus-mail-save-name gnus-newsgroup-name
@@ -1614,7 +1630,6 @@ Directory to save to is default to `gnus-article-save-directory'."
    "Append this article to file.
  Optional argument FILENAME specifies file name.
  Directory to save to is default to `gnus-article-save-directory'."
    "Append this article to file.
  Optional argument FILENAME specifies file name.
  Directory to save to is default to `gnus-article-save-directory'."
-  (interactive)
    (setq filename (gnus-read-save-file-name
                   "Save %s in file:" filename
                   gnus-file-save-name gnus-newsgroup-name
    (setq filename (gnus-read-save-file-name
                   "Save %s in file:" filename
                   gnus-file-save-name gnus-newsgroup-name
@@ -1633,14 +1648,12 @@ Directory to save to is default to `gnus-article-save-directory'."
    "Write this article to a file.
  Optional argument FILENAME specifies file name.
  The directory to save in defaults to `gnus-article-save-directory'."
    "Write this article to a file.
  Optional argument FILENAME specifies file name.
  The directory to save in defaults to `gnus-article-save-directory'."
-  (interactive)
    (gnus-summary-save-in-file nil t))
  
  (defun gnus-summary-save-body-in-file (&optional filename)
    "Append this article body to a file.
  Optional argument FILENAME specifies file name.
  The directory to save in defaults to `gnus-article-save-directory'."
    (gnus-summary-save-in-file nil t))
  
  (defun gnus-summary-save-body-in-file (&optional filename)
    "Append this article body to a file.
  Optional argument FILENAME specifies file name.
  The directory to save in defaults to `gnus-article-save-directory'."
-  (interactive)
    (setq filename (gnus-read-save-file-name
                   "Save %s body in file:" filename
                   gnus-file-save-name gnus-newsgroup-name
    (setq filename (gnus-read-save-file-name
                   "Save %s body in file:" filename
                   gnus-file-save-name gnus-newsgroup-name
@@ -1657,7 +1670,6 @@ The directory to save in defaults to `gnus-article-save-directory'."
  
  (defun gnus-summary-save-in-pipe (&optional command)
    "Pipe this article to subprocess."
  
  (defun gnus-summary-save-in-pipe (&optional command)
    "Pipe this article to subprocess."
-  (interactive)
    (setq command
         (cond ((eq command 'default)
                gnus-last-shell-command)
    (setq command
         (cond ((eq command 'default)
                gnus-last-shell-command)
@@ -1771,8 +1783,6 @@ If variable `gnus-use-long-file-name' is non-nil, it is
       (article-fill . gnus-article-word-wrap)
       article-remove-cr
       article-display-x-face
       (article-fill . gnus-article-word-wrap)
       article-remove-cr
       article-display-x-face
-     article-de-quoted-unreadable
-     article-mime-decode-quoted-printable
       article-hide-pgp
       article-hide-pem
       article-hide-signature
       article-hide-pgp
       article-hide-pem
       article-hide-signature
@@ -1823,8 +1833,28 @@ If variable `gnus-use-long-file-name' is non-nil, it is
    "\M-^" gnus-article-read-summary-keys
    "\M-g" gnus-article-read-summary-keys)
  
    "\M-^" gnus-article-read-summary-keys
    "\M-g" gnus-article-read-summary-keys)
  
-(substitute-key-definition
- 'undefined 'gnus-article-read-summary-keys gnus-article-mode-map)
+;; Define almost undefined keys to `gnus-article-read-summary-keys'.
+(mapcar
+ (lambda (key)
+   (unless (lookup-key gnus-article-mode-map key)
+     (define-key gnus-article-mode-map key
+       'gnus-article-read-summary-keys)))
+ (delq nil
+       (append
+       (mapcar
+        (lambda (elt)
+          (let ((key (car elt)))
+            (and (> (length key) 0)
+                 (not (eq 'menu-bar (aref key 0)))
+                 (symbolp (lookup-key gnus-summary-mode-map key))
+                 key)))
+        (accessible-keymaps gnus-summary-mode-map))
+       (let ((c 127)
+             keys)
+         (while (>= c 32)
+           (push (char-to-string c) keys)
+           (decf c))
+         keys))))
  
  (defun gnus-article-make-menu-bar ()
    (gnus-turn-off-edit-menu 'article)
  
  (defun gnus-article-make-menu-bar ()
    (gnus-turn-off-edit-menu 'article)
@@ -1836,7 +1866,8 @@ If variable `gnus-use-long-file-name' is non-nil, it is
         ["Scroll backwards" gnus-article-goto-prev-page t]
         ["Show summary" gnus-article-show-summary t]
         ["Fetch Message-ID at point" gnus-article-refer-article t]
         ["Scroll backwards" gnus-article-goto-prev-page t]
         ["Show summary" gnus-article-show-summary t]
         ["Fetch Message-ID at point" gnus-article-refer-article t]
-       ["Mail to address at point" gnus-article-mail t]))
+       ["Mail to address at point" gnus-article-mail t]
+       ["Send a bug report" gnus-bug t]))
  
      (easy-menu-define
       gnus-article-treatment-menu gnus-article-mode-map ""
  
      (easy-menu-define
       gnus-article-treatment-menu gnus-article-mode-map ""
@@ -1846,12 +1877,9 @@ If variable `gnus-use-long-file-name' is non-nil, it is
         ["Hide citation" gnus-article-hide-citation t]
         ["Treat overstrike" gnus-article-treat-overstrike t]
         ["Remove carriage return" gnus-article-remove-cr t]
         ["Hide citation" gnus-article-hide-citation t]
         ["Treat overstrike" gnus-article-treat-overstrike t]
         ["Remove carriage return" gnus-article-remove-cr t]
-       ["Remove quoted-unreadable" gnus-article-de-quoted-unreadable t]))
+       ))
  
  
-    (when nil
-      (when (boundp 'gnus-summary-article-menu)
-       (define-key gnus-article-mode-map [menu-bar commands]
-         (cons "Commands" gnus-summary-article-menu))))
+    ;; Note "Commands" menu is defined in gnus-sum.el for consistency
  
      (when (boundp 'gnus-summary-post-menu)
        (define-key gnus-article-mode-map [menu-bar post]
  
      (when (boundp 'gnus-summary-post-menu)
        (define-key gnus-article-mode-map [menu-bar post]
@@ -1877,7 +1905,6 @@ commands:
    (interactive)
    (when (gnus-visual-p 'article-menu 'menu)
      (gnus-article-make-menu-bar))
    (interactive)
    (when (gnus-visual-p 'article-menu 'menu)
      (gnus-article-make-menu-bar))
-  (kill-all-local-variables)
    (gnus-simplify-mode-line)
    (setq mode-name "Article")
    (setq major-mode 'gnus-article-mode)
    (gnus-simplify-mode-line)
    (setq mode-name "Article")
    (setq major-mode 'gnus-article-mode)
@@ -1887,8 +1914,9 @@ commands:
    (use-local-map gnus-article-mode-map)
    (gnus-update-format-specifications nil 'article-mode)
    (set (make-local-variable 'page-delimiter) gnus-page-delimiter)
    (use-local-map gnus-article-mode-map)
    (gnus-update-format-specifications nil 'article-mode)
    (set (make-local-variable 'page-delimiter) gnus-page-delimiter)
-  (set (make-local-variable 'gnus-page-broken) nil)
-  (set (make-local-variable 'gnus-button-marker-list) nil)
+  (make-local-variable 'gnus-page-broken)
+  (make-local-variable 'gnus-button-marker-list)
+  (make-local-variable 'gnus-article-current-summary)
    (gnus-set-default-directory)
    (buffer-disable-undo (current-buffer))
    (setq buffer-read-only t)
    (gnus-set-default-directory)
    (buffer-disable-undo (current-buffer))
    (setq buffer-read-only t)
@@ -1914,23 +1942,20 @@ commands:
         (gnus-set-global-variables)))
      ;; Init original article buffer.
      (save-excursion
         (gnus-set-global-variables)))
      ;; Init original article buffer.
      (save-excursion
-      (set-buffer (get-buffer-create gnus-original-article-buffer))
+      (set-buffer (gnus-get-buffer-create gnus-original-article-buffer))
        (buffer-disable-undo (current-buffer))
        (setq major-mode 'gnus-original-article-mode)
        (buffer-disable-undo (current-buffer))
        (setq major-mode 'gnus-original-article-mode)
-      (gnus-add-current-to-buffer-list)
        (make-local-variable 'gnus-original-article))
      (if (get-buffer name)
         (save-excursion
           (set-buffer name)
           (buffer-disable-undo (current-buffer))
           (setq buffer-read-only t)
        (make-local-variable 'gnus-original-article))
      (if (get-buffer name)
         (save-excursion
           (set-buffer name)
           (buffer-disable-undo (current-buffer))
           (setq buffer-read-only t)
-         (gnus-add-current-to-buffer-list)
           (unless (eq major-mode 'gnus-article-mode)
             (gnus-article-mode))
           (current-buffer))
        (save-excursion
           (unless (eq major-mode 'gnus-article-mode)
             (gnus-article-mode))
           (current-buffer))
        (save-excursion
-       (set-buffer (get-buffer-create name))
-       (gnus-add-current-to-buffer-list)
+       (set-buffer (gnus-get-buffer-create name))
         (gnus-article-mode)
         (make-local-variable 'gnus-summary-buffer)
         (current-buffer)))))
         (gnus-article-mode)
         (make-local-variable 'gnus-summary-buffer)
         (current-buffer)))))
@@ -1952,49 +1977,67 @@ commands:
  
  ;;; @@ article filters
  ;;;
  
  ;;; @@ article filters
  ;;;
-(defun gnus-article-preview-mime-message ()
+
+(defun gnus-article-display-mime-message ()
+  "Article display method for MIME message."
+  ;; called from `gnus-original-article-buffer'.
+  (let (charset all-headers)
+    (with-current-buffer gnus-summary-buffer
+      (setq charset default-mime-charset
+           all-headers gnus-have-all-headers))
+    (make-local-variable 'default-mime-charset)
+    (setq default-mime-charset charset)
+    (mime-display-message mime-message-structure
+                         gnus-article-buffer nil gnus-article-mode-map)
+    (when all-headers
+      (gnus-article-hide-headers nil -1))
+    (make-local-variable 'default-mime-charset)
+    (setq default-mime-charset charset)
+    )
+  ;; `mime-display-message' changes current buffer to `gnus-article-buffer'.
    (make-local-variable 'mime-button-mother-dispatcher)
    (setq mime-button-mother-dispatcher
         (function gnus-article-push-button))
    (make-local-variable 'mime-button-mother-dispatcher)
    (setq mime-button-mother-dispatcher
         (function gnus-article-push-button))
-  (let ((default-mime-charset
-         (save-excursion
-           (set-buffer gnus-summary-buffer)
-           default-mime-charset))
-       )
-    (save-excursion
-      (mime-view-mode nil nil nil gnus-original-article-buffer
-                     gnus-article-buffer
-                     gnus-article-mode-map)
-      ))
-  (run-hooks 'gnus-mime-article-prepare-hook)
-  )
+  (run-hooks 'gnus-mime-article-prepare-hook))
+
+(defun gnus-article-display-traditional-message ()
+  "Article display method for traditional message."
+  (set-buffer gnus-article-buffer)
+  (let (buffer-read-only)
+    (erase-buffer)
+    (insert-buffer-substring gnus-original-article-buffer)))
  
  
-(defun gnus-article-decode-encoded-word ()
-  "Header filter for gnus-article-mode.
-It is registered to variable `mime-view-content-header-filter-alist'."
+(defun gnus-article-make-full-mail-header (&optional number charset)
+  "Create a new mail header structure in a raw article buffer."
+  (unless (and number charset)
+    (save-current-buffer
+      (set-buffer gnus-summary-buffer)
+      (unless number
+       (setq number (or (cdr gnus-article-current) 0)))
+      (unless charset
+       (setq charset (or default-mime-charset 'x-ctext)))))
    (goto-char (point-min))
    (goto-char (point-min))
-  (let ((charset (save-excursion
-                  (set-buffer gnus-summary-buffer)
-                  default-mime-charset)))
-    (save-restriction
-      (std11-narrow-to-header)
-      (goto-char (point-min))
-      (while (re-search-forward "^[^ \t:]+:" nil t)
-       (let ((start (match-beginning 0))
-             (end (std11-field-end))
-             )
-         (save-restriction
-           (narrow-to-region start end)
-           (decode-mime-charset-region start end charset)
-           (goto-char (point-max))
-           )))
-      (eword-decode-header)
-      )
-    (decode-mime-charset-region (point) (point-max) charset)
-    (mime-maybe-hide-echo-buffer)
-    )
-  (run-hooks 'gnus-mime-article-prepare-hook)
-  )
+  (let ((header-end (if (search-forward "\n\n" nil t)
+                       (1- (point))
+                     (goto-char (point-max))))
+       (chars (- (point-max) (point)))
+       (lines (count-lines (point) (point-max)))
+       (default-mime-charset charset)
+       xref)
+    (narrow-to-region (point-min) header-end)
+    (setq xref (std11-fetch-field "xref"))
+    (prog1
+       (make-full-mail-header
+        number
+        (std11-fetch-field "subject")
+        (std11-fetch-field "from")
+        (std11-fetch-field "date")
+        (std11-fetch-field "message-id")
+        (std11-fetch-field "references")
+        chars
+        lines
+        (when xref (concat "Xref: " xref)))
+      (widen))))
  
  (defun gnus-article-prepare (article &optional all-headers header)
    "Prepare ARTICLE in article mode buffer.
  
  (defun gnus-article-prepare (article &optional all-headers header)
    "Prepare ARTICLE in article mode buffer.
@@ -2006,19 +2049,14 @@ If ALL-HEADERS is non-nil, no headers are hidden."
      (unless (eq major-mode 'gnus-summary-mode)
        (set-buffer gnus-summary-buffer))
      (setq gnus-summary-buffer (current-buffer))
      (unless (eq major-mode 'gnus-summary-mode)
        (set-buffer gnus-summary-buffer))
      (setq gnus-summary-buffer (current-buffer))
-    ;; Make sure the connection to the server is alive.
-    (unless (gnus-server-opened
-            (gnus-find-method-for-group gnus-newsgroup-name))
-      (gnus-check-server (gnus-find-method-for-group gnus-newsgroup-name))
-      (gnus-request-group gnus-newsgroup-name t))
      (let* ((gnus-article (if header (mail-header-number header) article))
            (summary-buffer (current-buffer))
      (let* ((gnus-article (if header (mail-header-number header) article))
            (summary-buffer (current-buffer))
-          (internal-hook gnus-article-internal-prepare-hook)
+          (gnus-tmp-internal-hook gnus-article-internal-prepare-hook)
            (group gnus-newsgroup-name)
            result)
        (save-excursion
         (gnus-article-setup-buffer)
            (group gnus-newsgroup-name)
            result)
        (save-excursion
         (gnus-article-setup-buffer)
-       (set-buffer gnus-article-buffer)
+       (set-buffer gnus-original-article-buffer)
         ;; Deactivate active regions.
         (when (and (boundp 'transient-mark-mode)
                    transient-mark-mode)
         ;; Deactivate active regions.
         (when (and (boundp 'transient-mark-mode)
                    transient-mark-mode)
@@ -2034,11 +2072,16 @@ If ALL-HEADERS is non-nil, no headers are hidden."
                       (cons gnus-newsgroup-name article))
                 (set-buffer gnus-summary-buffer)
                 (setq gnus-current-article article)
                       (cons gnus-newsgroup-name article))
                 (set-buffer gnus-summary-buffer)
                 (setq gnus-current-article article)
-               (gnus-summary-mark-article article gnus-canceled-mark))
-             (unless (memq article gnus-newsgroup-sparse)
-               (gnus-error
-                1 "No such article (may have expired or been canceled)")))
-         (if (or (eq result 'pseudo) (eq result 'nneething))
+               (if (eq (gnus-article-mark article) gnus-undownloaded-mark)
+                   (progn
+                     (gnus-summary-set-agent-mark article)
+                     (message "Message marked for downloading"))
+                 (gnus-summary-mark-article article gnus-canceled-mark)
+                 (unless (memq article gnus-newsgroup-sparse)
+                   (gnus-error 1
+                    "No such article (may have expired or been canceled)")))))
+         (if (or (eq result 'pseudo)
+                 (eq result 'nneething))
               (progn
                 (save-excursion
                   (set-buffer summary-buffer)
               (progn
                 (save-excursion
                   (set-buffer summary-buffer)
@@ -2071,7 +2114,12 @@ If ALL-HEADERS is non-nil, no headers are hidden."
                 (unless (vectorp gnus-current-headers)
                   (setq gnus-current-headers nil))
                 (gnus-summary-goto-subject gnus-current-article)
                 (unless (vectorp gnus-current-headers)
                   (setq gnus-current-headers nil))
                 (gnus-summary-goto-subject gnus-current-article)
-               (gnus-summary-show-thread)
+               (when (gnus-summary-show-thread)
+                 ;; If the summary buffer really was folded, the
+                 ;; previous goto may not actually have gone to
+                 ;; the right article, but the thread root instead.
+                 ;; So we go again.
+                 (gnus-summary-goto-subject gnus-current-article))
                 (gnus-run-hooks 'gnus-mark-article-hook)
                 (gnus-set-mode-line 'summary)
                 (when (gnus-visual-p 'article-highlight 'highlight)
                 (gnus-run-hooks 'gnus-mark-article-hook)
                 (gnus-set-mode-line 'summary)
                 (when (gnus-visual-p 'article-highlight 'highlight)
@@ -2081,30 +2129,10 @@ If ALL-HEADERS is non-nil, no headers are hidden."
                 ;; <sisolak@trans4.neep.wisc.edu>.
                 (gnus-set-global-variables)
                 (setq gnus-have-all-headers
                 ;; <sisolak@trans4.neep.wisc.edu>.
                 (gnus-set-global-variables)
                 (setq gnus-have-all-headers
-                     (or all-headers gnus-show-all-headers))
-               (and gnus-use-cache
-                    (vectorp (gnus-summary-article-header article))
-                    (gnus-cache-possibly-enter-article
-                     group article
-                     (gnus-summary-article-header article)
-                     (memq article gnus-newsgroup-marked)
-                     (memq article gnus-newsgroup-dormant)
-                     (memq article gnus-newsgroup-unreads)))))
+                     (or all-headers gnus-show-all-headers))))
             (when (or (numberp article)
                       (stringp article))
             (when (or (numberp article)
                       (stringp article))
-             ;; Hooks for getting information from the article.
-             ;; This hook must be called before being narrowed.
-             (let (buffer-read-only)
-               (gnus-run-hooks 'internal-hook)
-               (gnus-run-hooks 'gnus-article-prepare-hook)
-               ;; Decode MIME message.
-               (when gnus-show-mime
-                 (if (or (not gnus-strict-mime)
-                         (gnus-fetch-field "Mime-Version"))
-                     (funcall gnus-show-mime-method)
-                   (funcall gnus-decode-encoded-word-method)))
-               ;; Perform the article display hooks.
-               (gnus-run-hooks 'gnus-article-display-hook))
+             (gnus-article-prepare-display)
               ;; Do page break.
               (goto-char (point-min))
               (setq gnus-page-broken
               ;; Do page break.
               (goto-char (point-min))
               (setq gnus-page-broken
@@ -2114,8 +2142,27 @@ If ALL-HEADERS is non-nil, no headers are hidden."
             (gnus-set-mode-line 'article)
             (gnus-configure-windows 'article)
             (goto-char (point-min))
             (gnus-set-mode-line 'article)
             (gnus-configure-windows 'article)
             (goto-char (point-min))
+           (search-forward "\n\n" nil t)
+           (set-window-point (get-buffer-window (current-buffer)) (point))
             t))))))
  
             t))))))
  
+(defun gnus-article-prepare-display ()
+  "Make the current buffer look like a nice article."
+  (let ((method
+        (if gnus-show-mime
+            (progn
+              (setq mime-message-structure gnus-current-headers)
+              gnus-article-display-method-for-mime)
+          gnus-article-display-method-for-traditional)))
+    (gnus-run-hooks 'gnus-tmp-internal-hook)
+    (gnus-run-hooks 'gnus-article-prepare-hook)
+    ;; Display message.
+    (funcall method)
+    ;; Associate this article with the current summary buffer.
+    (setq gnus-article-current-summary gnus-summary-buffer)
+    ;; Perform the article display hooks.
+    (gnus-run-hooks 'gnus-article-display-hook)))
+
  (defun gnus-article-wash-status ()
    "Return a string which display status of article washing."
    (save-excursion
  (defun gnus-article-wash-status ()
    "Return a string which display status of article washing."
    (save-excursion
@@ -2138,7 +2185,9 @@ If ALL-HEADERS is non-nil, no headers are hidden."
               (if mime ?m ? )
               (if emphasis ?e ? )))))
  
               (if mime ?m ? )
               (if emphasis ?e ? )))))
  
-(defun gnus-article-hide-headers-if-wanted ()
+(fset 'gnus-article-hide-headers-if-wanted 'gnus-article-maybe-hide-headers)
+
+(defun gnus-article-maybe-hide-headers ()
    "Hide unwanted headers if `gnus-have-all-headers' is nil.
  Provided for backwards compatibility."
    (or (save-excursion (set-buffer gnus-summary-buffer) gnus-have-all-headers)
    "Hide unwanted headers if `gnus-have-all-headers' is nil.
  Provided for backwards compatibility."
    (or (save-excursion (set-buffer gnus-summary-buffer) gnus-have-all-headers)
@@ -2278,7 +2327,8 @@ Argument LINES specifies lines to be scrolled down."
        (error "There is no summary buffer for this article buffer")
      (gnus-article-set-globals)
      (gnus-configure-windows 'article)
        (error "There is no summary buffer for this article buffer")
      (gnus-article-set-globals)
      (gnus-configure-windows 'article)
-    (gnus-summary-goto-subject gnus-current-article)))
+    (gnus-summary-goto-subject gnus-current-article)
+    (gnus-summary-position-point)))
  
  (defun gnus-article-describe-briefly ()
    "Describe article mode commands briefly."
  
  (defun gnus-article-describe-briefly ()
    "Describe article mode commands briefly."
@@ -2292,7 +2342,7 @@ Argument LINES specifies lines to be scrolled down."
    (let ((obuf (current-buffer))
         (owin (current-window-configuration))
         func)
    (let ((obuf (current-buffer))
         (owin (current-window-configuration))
         func)
-    (switch-to-buffer gnus-summary-buffer 'norecord)
+    (switch-to-buffer gnus-article-current-summary 'norecord)
      (setq func (lookup-key (current-local-map) (this-command-keys)))
      (call-interactively func)
      (set-buffer obuf)
      (setq func (lookup-key (current-local-map) (this-command-keys)))
      (call-interactively func)
      (set-buffer obuf)
@@ -2303,7 +2353,7 @@ Argument LINES specifies lines to be scrolled down."
    "Execute the last keystroke in the summary buffer."
    (interactive)
    (let (func)
    "Execute the last keystroke in the summary buffer."
    (interactive)
    (let (func)
-    (pop-to-buffer gnus-summary-buffer 'norecord)
+    (pop-to-buffer gnus-article-current-summary 'norecord)
      (setq func (lookup-key (current-local-map) (this-command-keys)))
      (call-interactively func)))
  
      (setq func (lookup-key (current-local-map) (this-command-keys)))
      (call-interactively func)))
  
@@ -2311,85 +2361,101 @@ Argument LINES specifies lines to be scrolled down."
    "Read a summary buffer key sequence and execute it from the article buffer."
    (interactive "P")
    (let ((nosaves
    "Read a summary buffer key sequence and execute it from the article buffer."
    (interactive "P")
    (let ((nosaves
-        '("q" "Q"  "c" "r" "R" "\C-c\C-f" "m"  "a" "f" "F"
-          "Zc" "ZC" "ZE" "ZQ" "ZZ" "Zn" "ZR" "ZG" "ZN" "ZP"
-          "=" "^" "\M-^" "|"))
-       (nosave-but-article
-        '("A\r"))
-       (nosave-in-article
-        '("\C-d"))
-       keys)
+         '("q" "Q"  "c" "r" "R" "\C-c\C-f" "m"  "a" "f" "F"
+           "Zc" "ZC" "ZE" "ZQ" "ZZ" "Zn" "ZR" "ZG" "ZN" "ZP"
+           "=" "^" "\M-^" "|"))
+        (nosave-but-article
+         '("A\r"))
+        (nosave-in-article
+         '("\C-d"))
+        (up-to-top
+         '("n" "Gn" "p" "Gp"))
+        keys new-sum-point)
      (save-excursion
      (save-excursion
-      (set-buffer gnus-summary-buffer)
+      (set-buffer gnus-article-current-summary)
        (let (gnus-pick-mode)
        (let (gnus-pick-mode)
-       (push (or key last-command-event) unread-command-events)
-       (setq keys (read-key-sequence nil))))
+        (push (or key last-command-event) unread-command-events)
+        (setq keys (read-key-sequence nil))))
      (message "")
  
      (if (or (member keys nosaves)
      (message "")
  
      (if (or (member keys nosaves)
-           (member keys nosave-but-article)
-           (member keys nosave-in-article))
-       (let (func)
-         (save-window-excursion
-           (pop-to-buffer gnus-summary-buffer 'norecord)
-           ;; We disable the pick minor mode commands.
-           (let (gnus-pick-mode)
-             (setq func (lookup-key (current-local-map) keys))))
-         (if (not func)
-             (ding)
-           (unless (member keys nosave-in-article)
-             (set-buffer gnus-summary-buffer))
-           (call-interactively func))
-         (when (member keys nosave-but-article)
-           (pop-to-buffer gnus-article-buffer 'norecord)))
+            (member keys nosave-but-article)
+            (member keys nosave-in-article))
+        (let (func)
+          (save-window-excursion
+            (pop-to-buffer gnus-article-current-summary 'norecord)
+            ;; We disable the pick minor mode commands.
+            (let (gnus-pick-mode)
+              (setq func (lookup-key (current-local-map) keys))))
+          (if (not func)
+              (ding)
+            (unless (member keys nosave-in-article)
+              (set-buffer gnus-article-current-summary))
+            (call-interactively func)
+            (setq new-sum-point (point)))
+          (when (member keys nosave-but-article)
+            (pop-to-buffer gnus-article-buffer 'norecord)))
        ;; These commands should restore window configuration.
        (let ((obuf (current-buffer))
        ;; These commands should restore window configuration.
        (let ((obuf (current-buffer))
-           (owin (current-window-configuration))
-           (opoint (point))
-           func in-buffer)
-       (if not-restore-window
-           (pop-to-buffer gnus-summary-buffer 'norecord)
-         (switch-to-buffer gnus-summary-buffer 'norecord))
-       (setq in-buffer (current-buffer))
-       ;; We disable the pick minor mode commands.
-       (if (setq func (let (gnus-pick-mode)
-                        (lookup-key (current-local-map) keys)))
-           (call-interactively func)
-         (ding))
-       (when (eq in-buffer (current-buffer))
-         (set-buffer obuf)
-         (unless not-restore-window
-           (set-window-configuration owin))
-         (set-window-point (get-buffer-window (current-buffer)) opoint))))))
+            (owin (current-window-configuration))
+            (opoint (point))
+            (summary gnus-article-current-summary)
+            func in-buffer selected)
+        (if not-restore-window
+            (pop-to-buffer summary 'norecord)
+          (switch-to-buffer summary 'norecord))
+        (setq in-buffer (current-buffer))
+        ;; We disable the pick minor mode commands.
+        (if (setq func (let (gnus-pick-mode)
+                         (lookup-key (current-local-map) keys)))
+            (progn
+              (call-interactively func)
+              (setq new-sum-point (point)))
+          (ding))
+        (when (eq in-buffer (current-buffer))
+          (setq selected (gnus-summary-select-article))
+          (set-buffer obuf)
+          (unless not-restore-window
+            (set-window-configuration owin))
+          (unless (or (not (eq selected 'old)) (member keys up-to-top))
+            (set-window-point (get-buffer-window (current-buffer))
+                              opoint))
+          (let ((win (get-buffer-window gnus-article-current-summary)))
+            (when win
+              (set-window-point win new-sum-point))))))))
  
  (defun gnus-article-hide (&optional arg force)
    "Hide all the gruft in the current article.
  This means that PGP stuff, signatures, cited text and (some)
  headers will be hidden.
  If given a prefix, show the hidden text instead."
  
  (defun gnus-article-hide (&optional arg force)
    "Hide all the gruft in the current article.
  This means that PGP stuff, signatures, cited text and (some)
  headers will be hidden.
  If given a prefix, show the hidden text instead."
-  (interactive (list current-prefix-arg 'force))
+  (interactive (append (gnus-article-hidden-arg) (list 'force)))
    (gnus-article-hide-headers arg)
    (gnus-article-hide-pgp arg)
    (gnus-article-hide-citation-maybe arg force)
    (gnus-article-hide-signature arg))
  
  (defun gnus-article-maybe-highlight ()
    (gnus-article-hide-headers arg)
    (gnus-article-hide-pgp arg)
    (gnus-article-hide-citation-maybe arg force)
    (gnus-article-hide-signature arg))
  
  (defun gnus-article-maybe-highlight ()
-  "Do some article highlighting if `article-visual' is non-nil."
+  "Do some article highlighting if article highlighting is requested."
    (when (gnus-visual-p 'article-highlight 'highlight)
      (gnus-article-highlight-some)))
  
    (when (gnus-visual-p 'article-highlight 'highlight)
      (gnus-article-highlight-some)))
  
+(defun gnus-check-group-server ()
+  ;; Make sure the connection to the server is alive.
+  (unless (gnus-server-opened
+          (gnus-find-method-for-group gnus-newsgroup-name))
+    (gnus-check-server (gnus-find-method-for-group gnus-newsgroup-name))
+    (gnus-request-group gnus-newsgroup-name t)))
+
  (defun gnus-request-article-this-buffer (article group)
    "Get an article and insert it into this buffer."
  (defun gnus-request-article-this-buffer (article group)
    "Get an article and insert it into this buffer."
-  (let (do-update-line)
+  (let (do-update-line sparse-header)
      (prog1
         (save-excursion
           (erase-buffer)
           (gnus-kill-all-overlays)
           (setq group (or group gnus-newsgroup-name))
  
      (prog1
         (save-excursion
           (erase-buffer)
           (gnus-kill-all-overlays)
           (setq group (or group gnus-newsgroup-name))
  
-         ;; Open server if it has closed.
-         (gnus-check-server (gnus-find-method-for-group group))
-
           ;; Using `gnus-request-article' directly will insert the article into
           ;; `nntp-server-buffer' - so we'll save some time by not having to
           ;; copy it from the server buffer into the article buffer.
           ;; Using `gnus-request-article' directly will insert the article into
           ;; `nntp-server-buffer' - so we'll save some time by not having to
           ;; copy it from the server buffer into the article buffer.
@@ -2406,7 +2472,7 @@ If given a prefix, show the hidden text instead."
           (when (and (numberp article)
                      gnus-summary-buffer
                      (get-buffer gnus-summary-buffer)
           (when (and (numberp article)
                      gnus-summary-buffer
                      (get-buffer gnus-summary-buffer)
-                    (buffer-name (get-buffer gnus-summary-buffer)))
+                    (gnus-buffer-exists-p gnus-summary-buffer))
             (save-excursion
               (set-buffer gnus-summary-buffer)
               (let ((header (gnus-summary-article-header article)))
             (save-excursion
               (set-buffer gnus-summary-buffer)
               (let ((header (gnus-summary-article-header article)))
@@ -2417,7 +2483,7 @@ If given a prefix, show the hidden text instead."
                     (setq do-update-line article)
                     (setq article (mail-header-id header))
                     (let ((gnus-override-method gnus-refer-article-method))
                     (setq do-update-line article)
                     (setq article (mail-header-id header))
                     (let ((gnus-override-method gnus-refer-article-method))
-                     (gnus-read-header article))
+                     (setq sparse-header (gnus-read-header article)))
                     (setq gnus-newsgroup-sparse
                           (delq article gnus-newsgroup-sparse)))
                    ((vectorp header)
                     (setq gnus-newsgroup-sparse
                           (delq article gnus-newsgroup-sparse)))
                    ((vectorp header)
@@ -2430,10 +2496,13 @@ If given a prefix, show the hidden text instead."
  
                 (let ((method (gnus-find-method-for-group
                                gnus-newsgroup-name)))
  
                 (let ((method (gnus-find-method-for-group
                                gnus-newsgroup-name)))
-                 (if (not (eq (car method) 'nneething))
-                     ()
-                   (let ((dir (concat (file-name-as-directory (nth 1 method))
-                                      (mail-header-subject header))))
+                 (when (and (eq (car method) 'nneething)
+                            (vectorp header))
+                   (let ((dir (concat
+                               (file-name-as-directory
+                                (or (cadr (assq 'nneething-address method))
+                                    (nth 1 method)))
+                               (mail-header-subject header))))
                       (when (file-directory-p dir)
                         (setq article 'nneething)
                         (gnus-group-enter-directory dir))))))))
                       (when (file-directory-p dir)
                         (setq article 'nneething)
                         (gnus-group-enter-directory dir))))))))
@@ -2443,21 +2512,12 @@ If given a prefix, show the hidden text instead."
            ((and (numberp article)
                  gnus-summary-buffer
                  (get-buffer gnus-summary-buffer)
            ((and (numberp article)
                  gnus-summary-buffer
                  (get-buffer gnus-summary-buffer)
-                (buffer-name (get-buffer gnus-summary-buffer))
+                (gnus-buffer-exists-p gnus-summary-buffer)
                  (eq (cdr (save-excursion
                             (set-buffer gnus-summary-buffer)
                             (assq article gnus-newsgroup-reads)))
                      gnus-canceled-mark))
             nil)
                  (eq (cdr (save-excursion
                             (set-buffer gnus-summary-buffer)
                             (assq article gnus-newsgroup-reads)))
                      gnus-canceled-mark))
             nil)
-          ;; We first check `gnus-original-article-buffer'.
-          ((and (get-buffer gnus-original-article-buffer)
-                (numberp article)
-                (save-excursion
-                  (set-buffer gnus-original-article-buffer)
-                  (and (equal (car gnus-original-article) group)
-                       (eq (cdr gnus-original-article) article))))
-           (insert-buffer-substring gnus-original-article-buffer)
-           'article)
            ;; Check the backlog.
            ((and gnus-keep-backlog
                  (gnus-backlog-request-article group article (current-buffer)))
            ;; Check the backlog.
            ((and gnus-keep-backlog
                  (gnus-backlog-request-article group article (current-buffer)))
@@ -2480,6 +2540,7 @@ If given a prefix, show the hidden text instead."
                   (buffer-read-only nil))
               (erase-buffer)
               (gnus-kill-all-overlays)
                   (buffer-read-only nil))
               (erase-buffer)
               (gnus-kill-all-overlays)
+             (gnus-check-group-server)
               (when (gnus-request-article article group (current-buffer))
                 (when (numberp article)
                   (gnus-async-prefetch-next group article gnus-summary-buffer)
               (when (gnus-request-article article group (current-buffer))
                 (when (numberp article)
                   (gnus-async-prefetch-next group article gnus-summary-buffer)
@@ -2490,20 +2551,21 @@ If given a prefix, show the hidden text instead."
            ;; It was a pseudo.
            (t article)))
  
            ;; It was a pseudo.
            (t article)))
  
+      ;; Associate this article with the current summary buffer.
+      (setq gnus-article-current-summary gnus-summary-buffer)
+
        ;; Take the article from the original article buffer
        ;; and place it in the buffer it's supposed to be in.
        (when (and (get-buffer gnus-article-buffer)
        ;; Take the article from the original article buffer
        ;; and place it in the buffer it's supposed to be in.
        (when (and (get-buffer gnus-article-buffer)
-                ;;(numberp article)
                  (equal (buffer-name (current-buffer))
                         (buffer-name (get-buffer gnus-article-buffer))))
         (save-excursion
           (if (get-buffer gnus-original-article-buffer)
                  (equal (buffer-name (current-buffer))
                         (buffer-name (get-buffer gnus-article-buffer))))
         (save-excursion
           (if (get-buffer gnus-original-article-buffer)
-             (set-buffer (get-buffer gnus-original-article-buffer))
-           (set-buffer (get-buffer-create gnus-original-article-buffer))
+             (set-buffer gnus-original-article-buffer)
+           (set-buffer (gnus-get-buffer-create gnus-original-article-buffer))
             (buffer-disable-undo (current-buffer))
             (setq major-mode 'gnus-original-article-mode)
             (buffer-disable-undo (current-buffer))
             (setq major-mode 'gnus-original-article-mode)
-           (setq buffer-read-only t)
-           (gnus-add-current-to-buffer-list))
+           (setq buffer-read-only t))
           (let (buffer-read-only)
             (erase-buffer)
             (insert-buffer-substring gnus-article-buffer))
           (let (buffer-read-only)
             (erase-buffer)
             (insert-buffer-substring gnus-article-buffer))
@@ -2515,7 +2577,7 @@ If given a prefix, show the hidden text instead."
                      (stringp article)))
         (let ((buf (current-buffer)))
           (set-buffer gnus-summary-buffer)
                      (stringp article)))
         (let ((buf (current-buffer)))
           (set-buffer gnus-summary-buffer)
-         (gnus-summary-update-article do-update-line)
+         (gnus-summary-update-article do-update-line sparse-header)
           (gnus-summary-goto-subject do-update-line nil t)
           (set-window-point (get-buffer-window (current-buffer) t)
                             (point))
           (gnus-summary-goto-subject do-update-line nil t)
           (set-window-point (get-buffer-window (current-buffer) t)
                             (point))
@@ -2526,10 +2588,16 @@ If given a prefix, show the hidden text instead."
  ;;;
  
  (defcustom gnus-article-edit-mode-hook nil
  ;;;
  
  (defcustom gnus-article-edit-mode-hook nil
-  "*Hook run in article edit mode buffers."
+  "Hook run in article edit mode buffers."
    :group 'gnus-article-various
    :type 'hook)
  
    :group 'gnus-article-various
    :type 'hook)
  
+(defcustom gnus-article-edit-article-setup-function
+  'gnus-article-mime-edit-article-setup
+  "Function called to setup an editing article buffer."
+  :group 'gnus-article-various
+  :type 'function)
+
  (defvar gnus-article-edit-done-function nil)
  
  (defvar gnus-article-edit-mode-map nil)
  (defvar gnus-article-edit-done-function nil)
  
  (defvar gnus-article-edit-mode-map nil)
@@ -2551,7 +2619,6 @@ This is an extended text-mode.
  
  \\{gnus-article-edit-mode-map}"
    (interactive)
  
  \\{gnus-article-edit-mode-map}"
    (interactive)
-  (kill-all-local-variables)
    (setq major-mode 'gnus-article-edit-mode)
    (setq mode-name "Article Edit")
    (use-local-map gnus-article-edit-mode-map)
    (setq major-mode 'gnus-article-edit-mode)
    (setq mode-name "Article Edit")
    (use-local-map gnus-article-edit-mode-map)
@@ -2560,7 +2627,7 @@ This is an extended text-mode.
    (setq buffer-read-only nil)
    (buffer-enable-undo)
    (widen)
    (setq buffer-read-only nil)
    (buffer-enable-undo)
    (widen)
-  (gnus-run-hooks 'text-mode 'gnus-article-edit-mode-hook))
+  (gnus-run-hooks 'text-mode-hook 'gnus-article-edit-mode-hook))
  
  (defun gnus-article-edit (&optional force)
    "Edit the current article.
  
  (defun gnus-article-edit (&optional force)
    "Edit the current article.
@@ -2583,10 +2650,13 @@ groups."
    (let ((winconf (current-window-configuration)))
      (set-buffer gnus-article-buffer)
      (gnus-article-edit-mode)
    (let ((winconf (current-window-configuration)))
      (set-buffer gnus-article-buffer)
      (gnus-article-edit-mode)
+    (gnus-article-delete-text-of-type 'annotation)
      (gnus-set-text-properties (point-min) (point-max) nil)
      (gnus-configure-windows 'edit-article)
      (setq gnus-article-edit-done-function exit-func)
      (setq gnus-prev-winconf winconf)
      (gnus-set-text-properties (point-min) (point-max) nil)
      (gnus-configure-windows 'edit-article)
      (setq gnus-article-edit-done-function exit-func)
      (setq gnus-prev-winconf winconf)
+    (when gnus-article-edit-article-setup-function
+      (funcall gnus-article-edit-article-setup-function))
      (gnus-message 6 "C-c C-c to end edits")))
  
  (defun gnus-article-edit-done (&optional arg)
      (gnus-message 6 "C-c C-c to end edits")))
  
  (defun gnus-article-edit-done (&optional arg)
@@ -2617,6 +2687,8 @@ groups."
    (let ((func gnus-article-edit-done-function)
         (buf (current-buffer))
         (start (window-start)))
    (let ((func gnus-article-edit-done-function)
         (buf (current-buffer))
         (start (window-start)))
+    (remove-hook 'gnus-article-mode-hook
+                'gnus-article-mime-edit-article-unwind)
      (gnus-article-edit-exit)
      (save-excursion
        (set-buffer buf)
      (gnus-article-edit-exit)
      (save-excursion
        (set-buffer buf)
@@ -2668,6 +2740,86 @@ groups."
        (query-replace-regexp "\\([.!?][])}]* \\)\\([[({A-Z]\\)" "\\1 \\2"))))
  
  ;;;
        (query-replace-regexp "\\([.!?][])}]* \\)\\([[({A-Z]\\)" "\\1 \\2"))))
  
  ;;;
+;;; Article editing with MIME-Edit
+;;;
+
+(defcustom gnus-article-mime-edit-article-setup-hook nil
+  "Hook run after setting up a MIME editing article buffer."
+  :group 'gnus-article-various
+  :type 'hook)
+
+(defun gnus-article-mime-edit-article-unwind ()
+  "Unwind `gnus-article-buffer' if article editing was given up."
+  (remove-hook 'gnus-article-mode-hook 'gnus-article-mime-edit-article-unwind)
+  (when mime-edit-mode-flag
+    (mime-edit-exit 'nomime 'no-error)
+    (message ""))
+  (when (featurep 'font-lock)
+    (setq font-lock-defaults nil)
+    (font-lock-mode 0)))
+
+(defun gnus-article-mime-edit-article-setup ()
+  "Convert current buffer to MIME-Edit buffer and turn on MIME-Edit mode
+after replacing with the original article."
+  (setq gnus-show-mime t)
+  (setq gnus-article-edit-done-function
+       `(lambda (&rest args)
+          (when mime-edit-mode-flag
+            (mime-edit-exit)
+            (message ""))
+          (goto-char (point-min))
+          (let (case-fold-search)
+            (when (re-search-forward
+                   (format "^%s$" (regexp-quote mail-header-separator))
+                   nil t)
+              (replace-match "")))
+          (when (featurep 'font-lock)
+            (setq font-lock-defaults nil)
+            (font-lock-mode 0))
+          (apply ,gnus-article-edit-done-function args)
+          (set-buffer gnus-original-article-buffer)
+          (erase-buffer)
+          (insert-buffer gnus-article-buffer)
+          (setq gnus-current-headers (gnus-article-make-full-mail-header))
+          (gnus-article-prepare-display)))
+  (define-key (current-local-map) "\C-c\C-k" 'gnus-article-mime-edit-exit)
+  (erase-buffer)
+  (insert-buffer gnus-original-article-buffer)
+  (mime-edit-again)
+  (when (featurep 'font-lock)
+    (set (make-local-variable 'font-lock-defaults)
+        '(message-font-lock-keywords t))
+    (font-lock-set-defaults)
+    (turn-on-font-lock))
+  (add-hook 'gnus-article-mode-hook 'gnus-article-mime-edit-article-unwind)
+  (gnus-run-hooks 'gnus-article-mime-edit-article-setup-hook))
+
+(defun gnus-article-mime-edit-exit ()
+  "Exit the article MIME editing without updating."
+  (interactive)
+  (let ((winconf gnus-prev-winconf)
+       buf)
+    (when mime-edit-mode-flag
+      (mime-edit-exit)
+      (message ""))
+    (goto-char (point-min))
+    (let (case-fold-search)
+      (when (re-search-forward
+            (format "^%s$" (regexp-quote mail-header-separator)) nil t)
+       (replace-match "")))
+    (when (featurep 'font-lock)
+      (setq font-lock-defaults nil)
+      (font-lock-mode 0))
+    ;; We remove all text props from the article buffer.
+    (setq buf (format "%s" (buffer-string)))
+    (set-buffer (get-buffer-create gnus-original-article-buffer))
+    (erase-buffer)
+    (insert buf)
+    (setq gnus-current-headers (gnus-article-make-full-mail-header))
+    (gnus-article-prepare-display)
+    (set-window-configuration winconf)))
+
+;;;
  ;;; Article highlights
  ;;;
  
  ;;; Article highlights
  ;;;
  
@@ -2676,20 +2828,22 @@ groups."
  ;;; Internal Variables:
  
  (defcustom gnus-button-url-regexp "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\):\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?\\([-a-zA-Z0-9_=!?#$@~`%&*+|\\/:;.,]\\|\\w\\)+\\([-a-zA-Z0-9_=#$@~`%&*+|\\/]\\|\\w\\)"
  ;;; Internal Variables:
  
  (defcustom gnus-button-url-regexp "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\):\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?\\([-a-zA-Z0-9_=!?#$@~`%&*+|\\/:;.,]\\|\\w\\)+\\([-a-zA-Z0-9_=#$@~`%&*+|\\/]\\|\\w\\)"
-  "*Regular expression that matches URLs."
+  "Regular expression that matches URLs."
    :group 'gnus-article-buttons
    :type 'regexp)
  
  (defcustom gnus-button-alist
    :group 'gnus-article-buttons
    :type 'regexp)
  
  (defcustom gnus-button-alist
-  `(("<\\(url: ?\\)?news:\\([^>\n\t ]*@[^>\n\t ]*\\)>" 0 t
+  `(("<\\(url:[>\n\t ]*?\\)?news:[>\n\t ]*\\([^>\n\t ]*@[^>\n\t ]*\\)>" 0 t
       gnus-button-message-id 2)
      ("\\bnews:\\([^>\n\t ]*@[^>\n\t ]*\\)" 0 t gnus-button-message-id 1)
       gnus-button-message-id 2)
      ("\\bnews:\\([^>\n\t ]*@[^>\n\t ]*\\)" 0 t gnus-button-message-id 1)
-    ("\\(\\b<\\(url: ?\\)?news:\\(//\\)?\\([^>\n\t ]*\\)>\\)" 1 t
+    ("\\(\\b<\\(url:[>\n\t ]*\\)?news:[>\n\t ]*\\(//\\)?\\([^>\n\t ]*\\)>\\)"
+     1 t
       gnus-button-fetch-group 4)
      ("\\bnews:\\(//\\)?\\([^'\">\n\t ]+\\)" 0 t gnus-button-fetch-group 2)
      ("\\bin\\( +article\\| +message\\)? +\\(<\\([^\n @<>]+@[^\n @<>]+\\)>\\)" 2
       t gnus-button-message-id 3)
      ("\\(<URL: *\\)mailto: *\\([^> \n\t]+\\)>" 0 t gnus-url-mailto 2)
       gnus-button-fetch-group 4)
      ("\\bnews:\\(//\\)?\\([^'\">\n\t ]+\\)" 0 t gnus-button-fetch-group 2)
      ("\\bin\\( +article\\| +message\\)? +\\(<\\([^\n @<>]+@[^\n @<>]+\\)>\\)" 2
       t gnus-button-message-id 3)
      ("\\(<URL: *\\)mailto: *\\([^> \n\t]+\\)>" 0 t gnus-url-mailto 2)
+    ("mailto:\\([a-zA-Z.-@_+0-9%]+\\)" 0 t gnus-url-mailto 1)
      ("\\bmailto:\\([^ \n\t]+\\)" 0 t gnus-url-mailto 1)
      ;; This is how URLs _should_ be embedded in text...
      ("<URL: *\\([^>]*\\)>" 0 t gnus-button-embedded-url 1)
      ("\\bmailto:\\([^ \n\t]+\\)" 0 t gnus-url-mailto 1)
      ;; This is how URLs _should_ be embedded in text...
      ("<URL: *\\([^>]*\\)>" 0 t gnus-button-embedded-url 1)
@@ -2765,6 +2919,7 @@ call it with the value of the `gnus-data' text property."
    (let* ((pos (posn-point (event-start event)))
           (data (get-text-property pos 'gnus-data))
          (fun (get-text-property pos 'gnus-callback)))
    (let* ((pos (posn-point (event-start event)))
           (data (get-text-property pos 'gnus-data))
          (fun (get-text-property pos 'gnus-callback)))
+    (goto-char pos)
      (when fun
        (funcall fun data))))
  
      (when fun
        (funcall fun data))))
  
@@ -3069,14 +3224,6 @@ specified by `gnus-button-alist'."
                                      (match-string 3 address)
                                    "nntp")))))))
  
                                      (match-string 3 address)
                                    "nntp")))))))
  
-(defun gnus-split-string (string pattern)
-  "Return a list of substrings of STRING which are separated by PATTERN."
-  (let (parts (start 0))
-    (while (string-match pattern string start)
-      (setq parts (cons (substring string start (match-beginning 0)) parts)
-           start (match-end 0)))
-    (nreverse (cons (substring string start) parts))))
-
  (defun gnus-url-parse-query-string (query &optional downcase)
    (let (retval pairs cur key val)
      (setq pairs (gnus-split-string query "&"))
  (defun gnus-url-parse-query-string (query &optional downcase)
    (let (retval pairs cur key val)
      (setq pairs (gnus-split-string query "&"))
@@ -3131,7 +3278,7 @@ forbidden in URL encoding."
    ;; Send mail to someone
    (when (string-match "mailto:/*\\(.*\\)" url)
      (setq url (substring url (match-beginning 1) nil)))
    ;; Send mail to someone
    (when (string-match "mailto:/*\\(.*\\)" url)
      (setq url (substring url (match-beginning 1) nil)))
-  (let (to args source-url subject func)
+  (let (to args subject func)
      (if (string-match (regexp-quote "?") url)
          (setq to (gnus-url-unhex-string (substring url 0 (match-beginning 0)))
                args (gnus-url-parse-query-string
      (if (string-match (regexp-quote "?") url)
          (setq to (gnus-url-unhex-string (substring url 0 (match-beginning 0)))
                args (gnus-url-parse-query-string
@@ -3139,26 +3286,29 @@ forbidden in URL encoding."
        (setq to (gnus-url-unhex-string url)))
      (setq args (cons (list "to" to) args)
            subject (cdr-safe (assoc "subject" args)))
        (setq to (gnus-url-unhex-string url)))
      (setq args (cons (list "to" to) args)
            subject (cdr-safe (assoc "subject" args)))
-    (message-mail)
-    (while args
-      (setq func (intern-soft (concat "message-goto-" (downcase (caar args)))))
-      (if (fboundp func)
-          (funcall func)
-        (message-position-on-field (caar args)))
-      (insert (mapconcat 'identity (cdar args) ", "))
-      (setq args (cdr args)))
-    (if subject
-        (message-goto-body)
-      (message-goto-subject))))
+    (gnus-setup-message 'reply
+      (message-mail)
+      (while args
+       (setq func (intern-soft (concat "message-goto-" (downcase (caar args)))))
+       (if (fboundp func)
+           (funcall func)
+         (message-position-on-field (caar args)))
+       (insert (mapconcat 'identity (cdar args) ", "))
+       (setq args (cdr args)))
+      (if subject
+         (message-goto-body)
+       (message-goto-subject)))))
  
  (defun gnus-button-mailto (address)
    ;; Mail to ADDRESS.
    (set-buffer (gnus-copy-article-buffer))
  
  (defun gnus-button-mailto (address)
    ;; Mail to ADDRESS.
    (set-buffer (gnus-copy-article-buffer))
-  (message-reply address))
+  (gnus-setup-message 'reply
+    (message-reply address)))
  
  (defun gnus-button-reply (address)
    ;; Reply to ADDRESS.
  
  (defun gnus-button-reply (address)
    ;; Reply to ADDRESS.
-  (message-reply address))
+  (gnus-setup-message 'reply
+    (message-reply address)))
  
  (defun gnus-button-url (address)
    "Browse ADDRESS."
  
  (defun gnus-button-url (address)
    "Browse ADDRESS."
@@ -3190,7 +3340,8 @@ forbidden in URL encoding."
      (gnus-eval-format
       gnus-prev-page-line-format nil
       `(gnus-prev t local-map ,gnus-prev-page-map
      (gnus-eval-format
       gnus-prev-page-line-format nil
       `(gnus-prev t local-map ,gnus-prev-page-map
-                gnus-callback gnus-article-button-prev-page))))
+                gnus-callback gnus-article-button-prev-page
+                gnus-type annotation))))
  
  (defvar gnus-next-page-map nil)
  (unless gnus-next-page-map
  
  (defvar gnus-next-page-map nil)
  (unless gnus-next-page-map
@@ -3218,9 +3369,10 @@ forbidden in URL encoding."
  (defun gnus-insert-next-page-button ()
    (let ((buffer-read-only nil))
      (gnus-eval-format gnus-next-page-line-format nil
  (defun gnus-insert-next-page-button ()
    (let ((buffer-read-only nil))
      (gnus-eval-format gnus-next-page-line-format nil
-                     `(gnus-next t local-map ,gnus-next-page-map
-                                 gnus-callback
-                                 gnus-article-button-next-page))))
+                     `(gnus-next
+                       t local-map ,gnus-next-page-map
+                       gnus-callback gnus-article-button-next-page
+                       gnus-type annotation))))
  
  (defun gnus-article-button-next-page (arg)
    "Go to the next page."
  
  (defun gnus-article-button-next-page (arg)
    "Go to the next page."
@@ -3242,47 +3394,45 @@ forbidden in URL encoding."
  ;;; @ for mime-view
  ;;;
  
  ;;; @ for mime-view
  ;;;
  
-(defun gnus-content-header-filter ()
-  "Header filter for mime-view.
-It is registered to variable `mime-view-content-header-filter-alist'."
-  (goto-char (point-min))
-  (while (re-search-forward "^[^ \t:]+:" nil t)
-    (let ((start (match-beginning 0))
-         (end (std11-field-end))
-         )
-      (save-restriction
-       (narrow-to-region start end)
-       (decode-mime-charset-region start end default-mime-charset)
-       (goto-char (point-max))
-       )))
-  (eword-decode-header)
+(defun gnus-article-header-presentation-method (entity situation)
+  (mime-insert-header entity)
    )
  
    )
  
-(defun mime-view-quitting-method-for-gnus ()
-  (if (not gnus-show-mime)
-      (mime-view-kill-buffer))
+(set-alist 'mime-header-presentation-method-alist
+          'gnus-original-article-mode
+          #'gnus-article-header-presentation-method)
+
+(defun gnus-mime-preview-quitting-method ()
+  (mime-preview-kill-buffer)
    (delete-other-windows)
    (gnus-article-show-summary)
    (delete-other-windows)
    (gnus-article-show-summary)
-  (if (or (not gnus-show-mime)
-         (null gnus-have-all-headers))
-      (gnus-summary-select-article nil t)
-    ))
+  (gnus-summary-select-article gnus-show-all-headers t))
  
  
-(set-alist 'mime-view-content-header-filter-alist
-          'gnus-original-article-mode
-          (function gnus-content-header-filter))
+(set-alist 'mime-preview-quitting-method-alist
+          'gnus-original-article-mode #'gnus-mime-preview-quitting-method)
  
  
-(set-alist 'mime-text-decoder-alist
-          'gnus-original-article-mode
-          (function mime-text-decode-buffer))
+(defun gnus-following-method (buf)
+  (set-buffer buf)
+  (message-followup)
+  (message-yank-original)
+  (kill-buffer buf)
+  (goto-char (point-min))
+  )
  
  
-(set-alist 'mime-view-quitting-method-alist
-          'gnus-original-article-mode
-          (function mime-view-quitting-method-for-gnus))
+(set-alist 'mime-preview-following-method-alist
+          'gnus-original-article-mode #'gnus-following-method)
  
  
-(set-alist 'mime-view-show-summary-method
+(set-alist 'mime-preview-over-to-previous-method-alist
            'gnus-original-article-mode
            'gnus-original-article-mode
-          (function mime-view-quitting-method-for-gnus))
+          (lambda ()
+            (gnus-article-read-summary-keys
+             nil (gnus-character-to-event ?P))))
+
+(set-alist 'mime-preview-over-to-next-method-alist
+          'gnus-original-article-mode'
+          (lambda ()
+            (gnus-article-read-summary-keys
+             nil (gnus-character-to-event ?N))))
  
  
  ;;; @ end
  
  
  ;;; @ end