Synch with Oort Gnus.

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

index 9485bf8..94849bb 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1,5 +1,5 @@
  ;;; gnus-art.el --- article mode commands for Semi-gnus
  ;;; gnus-art.el --- article mode commands for Semi-gnus
-;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001
+;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002
  ;;        Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
  ;;        Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -36,6 +36,7 @@
  (require 'gnus-sum)
  (require 'gnus-spec)
  (require 'gnus-int)
  (require 'gnus-sum)
  (require 'gnus-spec)
  (require 'gnus-int)
+(require 'gnus-win)
  (require 'alist)
  (require 'mime-view)
  (require 'wid-edit)
  (require 'alist)
  (require 'mime-view)
  (require 'wid-edit)
@@ -120,7 +121,7 @@
      "^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-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-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.*:"
      "^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.*:"
@@ -144,7 +145,14 @@
      "^X-Received:" "^Content-length:" "X-precedence:"
      "^X-Authenticated-User:" "^X-Comment" "^X-Report:" "^X-Abuse-Info:"
      "^X-HTTP-Proxy:" "^X-Mydeja-Info:" "^X-Copyright" "^X-No-Markup:"
      "^X-Received:" "^Content-length:" "X-precedence:"
      "^X-Authenticated-User:" "^X-Comment" "^X-Report:" "^X-Abuse-Info:"
      "^X-HTTP-Proxy:" "^X-Mydeja-Info:" "^X-Copyright" "^X-No-Markup:"
-    "^X-Abuse-Info:")
+    "^X-Abuse-Info:" "^X-From_:" "^X-Accept-Language:" "^Errors-To:"
+    "^X-BeenThere:" "^X-Mailman-Version:" "^List-Help:" "^List-Post:"
+    "^List-Subscribe:" "^List-Id:" "^List-Unsubscribe:" "^List-Archive:"
+     "^X-Content-length:" "^X-Posting-Agent:" "^Original-Received:"
+     "^X-Request-PGP:" "^X-Fingerprint:" "^X-WRIEnvto:" "^X-WRIEnvfrom:"
+     "^X-Virus-Scanned:" "^X-Delivery-Agent:" "^Posted-Date:" "^X-Gateway:"
+     "^X-Local-Origin:" "^X-Local-Destination:" "^X-UserInfo1:"
+     "^X-Received-Date:")
    "*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."
@@ -227,35 +235,50 @@ regexp.  If it matches, the text in question is not a signature."
  
  ;; Fixme: This isn't the right thing for mixed graphical and and
  ;; non-graphical frames in a session.
  
  ;; Fixme: This isn't the right thing for mixed graphical and and
  ;; non-graphical frames in a session.
-;; gnus-xmas.el overrides this for XEmacs.
  (defcustom gnus-article-x-face-command
    (cond
  (defcustom gnus-article-x-face-command
    (cond
+   ((featurep 'xemacs)
+    (if (or (gnus-image-type-available-p 'xface)
+           (gnus-image-type-available-p 'pbm))
+       'gnus-display-x-face-in-from
+      "{ echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm | ee -"))
     ((and (fboundp 'image-type-available-p)
          (module-installed-p 'x-face-e21))
      'x-face-decode-message-header)
     ((and (fboundp 'image-type-available-p)
          (module-installed-p 'x-face-e21))
      'x-face-decode-message-header)
-   ((and (fboundp 'image-type-available-p)
-        (image-type-available-p 'xbm))
-    'gnus-article-display-xface)
-   ((and (not (featurep 'xemacs))
-        window-system
+   ((gnus-image-type-available-p 'pbm)
+    'gnus-display-x-face-in-from)
+   ((and window-system
          (module-installed-p 'x-face-mule))
      'x-face-mule-gnus-article-display-x-face)
          (module-installed-p 'x-face-mule))
      'x-face-mule-gnus-article-display-x-face)
-   (gnus-article-compface-xbm
-    "{ echo '/* Width=48, Height=48 */'; uncompface; } | display -")
     (t
      "{ echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm | \
  display -"))
    "*String or function to be executed to display an X-Face header.
  If it is a string, the command will be executed in a sub-shell
  asynchronously.         The compressed face will be piped to this command."
     (t
      "{ echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm | \
  display -"))
    "*String or function to be executed to display an X-Face header.
  If it is a string, the command will be executed in a sub-shell
  asynchronously.         The compressed face will be piped to this command."
-  :type '(choice string
-                (function-item
-                 :tag "x-face-decode-message-header (x-face-e21)"
-                 x-face-decode-message-header)
-                (function-item gnus-article-display-xface)
-                (function-item x-face-mule-gnus-article-display-x-face)
-                function)
+  :type `(choice
+         ,@(let (x-face-e21 x-face-mule)
+             (if (featurep 'xemacs)
+                 nil
+               (setq x-face-e21 (module-installed-p 'x-face-e21)
+                     x-face-mule (module-installed-p 'x-face-mule)))
+             (delq nil
+                   (list
+                    'string
+                    (if (or (gnus-image-type-available-p 'xface)
+                            (gnus-image-type-available-p 'pbm))
+                        '(function-item gnus-display-x-face-in-from))
+                    (if (and x-face-e21
+                             (fboundp 'image-type-available-p))
+                        '(function-item
+                          :tag "x-face-decode-message-header (x-face-e21)"
+                          x-face-decode-message-header))
+                    (if x-face-mule
+                        '(function-item
+                          x-face-mule-gnus-article-display-x-face))
+                    'function))))
    ;;:version "21.1"
    ;;:version "21.1"
+  :group 'gnus-picon
    :group 'gnus-article-washing)
  
  (defcustom gnus-article-x-face-too-ugly nil
    :group 'gnus-article-washing)
  
  (defcustom gnus-article-x-face-too-ugly nil
@@ -294,23 +317,23 @@ directly.")
  
  (defcustom gnus-emphasis-alist
    (let ((format
  
  (defcustom gnus-emphasis-alist
    (let ((format
-        "\\(\\s-\\|^\\|[-\"]\\|\\s(\\)\\(%s\\(\\w+\\(\\s-+\\w+\\)*[.,]?\\)%s\\)\\(\\s-\\|[-,;:\"]\\s-\\|[?!.]+\\s-\\|\\s)\\)")
+        "\\(\\s-\\|^\\|\\=\\|[-\"]\\|\\s(\\)\\(%s\\(\\w+\\(\\s-+\\w+\\)*[.,]?\\)%s\\)\\(\\([-,.;:!?\"]\\|\\s)\\)+\\s-\\|[?!.]\\s-\\|\\s)\\|\\s-\\)")
         (types
         (types
-        '(("_" "_" underline)
+        '(("\\*" "\\*" bold)
+          ("_" "_" underline)
            ("/" "/" italic)
            ("/" "/" italic)
-          ("\\*" "\\*" bold)
            ("_/" "/_" underline-italic)
            ("_\\*" "\\*_" underline-bold)
            ("\\*/" "/\\*" bold-italic)
            ("_\\*/" "/\\*_" underline-bold-italic))))
            ("_/" "/_" underline-italic)
            ("_\\*" "\\*_" underline-bold)
            ("\\*/" "/\\*" bold-italic)
            ("_\\*/" "/\\*_" underline-bold-italic))))
-    `(("\\(\\s-\\|^\\)\\(_\\(\\(\\w\\|_[^_]\\)+\\)_\\)\\(\\s-\\|[?!.,;]\\)"
-       2 3 gnus-emphasis-underline)
-      ,@(mapcar
+    `(,@(mapcar
          (lambda (spec)
            (list
             (format format (car spec) (car (cdr spec)))
             2 3 (intern (format "gnus-emphasis-%s" (nth 2 spec)))))
          (lambda (spec)
            (list
             (format format (car spec) (car (cdr spec)))
             2 3 (intern (format "gnus-emphasis-%s" (nth 2 spec)))))
-        types)))
+        types)
+       ("\\(\\s-\\|^\\)\\(_\\(\\(\\w\\|_[^_]\\)+\\)_\\)\\(\\s-\\|[?!.,;]\\)"
+        2 3 gnus-emphasis-underline)))
    "*Alist that says how to fontify certain phrases.
  Each item looks like this:
  
    "*Alist that says how to fontify certain phrases.
  Each item looks like this:
  
@@ -423,6 +446,7 @@ Gnus provides the following functions:
  * gnus-summary-save-in-mail (Unix mail format)
  * gnus-summary-save-in-folder (MH folder)
  * gnus-summary-save-in-file (article format)
  * gnus-summary-save-in-mail (Unix mail format)
  * gnus-summary-save-in-folder (MH folder)
  * gnus-summary-save-in-file (article format)
+* gnus-summary-save-body-in-file (article body)
  * gnus-summary-save-in-vm (use VM's folder format)
  * gnus-summary-write-to-file (article format -- overwrite)."
    :group 'gnus-article-saving
  * gnus-summary-save-in-vm (use VM's folder format)
  * gnus-summary-write-to-file (article format -- overwrite)."
    :group 'gnus-article-saving
@@ -430,6 +454,7 @@ Gnus provides the following functions:
                 (function-item gnus-summary-save-in-mail)
                 (function-item gnus-summary-save-in-folder)
                 (function-item gnus-summary-save-in-file)
                 (function-item gnus-summary-save-in-mail)
                 (function-item gnus-summary-save-in-folder)
                 (function-item gnus-summary-save-in-file)
+               (function-item gnus-summary-save-body-in-file)
                 (function-item gnus-summary-save-in-vm)
                 (function-item gnus-summary-write-to-file)))
  
                 (function-item gnus-summary-save-in-vm)
                 (function-item gnus-summary-write-to-file)))
  
@@ -706,11 +731,47 @@ displayed by the first non-nil matching CONTENT face."
    :type '(repeat regexp))
  
  (defcustom gnus-unbuttonized-mime-types '(".*/.*")
    :type '(repeat regexp))
  
  (defcustom gnus-unbuttonized-mime-types '(".*/.*")
-  "List of MIME types that should not be given buttons when rendered inline."
+  "List of MIME types that should not be given buttons when rendered inline.
+See also `gnus-buttonized-mime-types' which may override this variable."
    :version "21.1"
    :group 'gnus-article-mime
    :type '(repeat regexp))
  
    :version "21.1"
    :group 'gnus-article-mime
    :type '(repeat regexp))
  
+(defcustom gnus-buttonized-mime-types nil
+  "List of MIME types that should be given buttons when rendered inline.
+If set, this variable overrides `gnus-unbuttonized-mime-types'.
+To see e.g. security buttons you could set this to
+`(\"multipart/signed\")'."
+  :version "21.1"
+  :group 'gnus-article-mime
+  :type '(repeat regexp))
+
+(defcustom gnus-body-boundary-delimiter "_"
+  "String used to delimit header and body.
+This variable is used by `gnus-article-treat-body-boundary' which can
+be controlled by `gnus-treat-body-boundary'."
+  :group 'gnus-article-various
+  :type '(choice (item :tag "None" :value nil)
+                string))
+
+(defcustom gnus-picon-databases '("/usr/lib/picon" "/usr/local/faces")
+  "Defines the location of the faces database.
+For information on obtaining this database of pretty pictures, please
+see http://www.cs.indiana.edu/picons/ftp/index.html"
+  :type '(repeat directory)
+  :link '(url-link :tag "download" 
+                  "http://www.cs.indiana.edu/picons/ftp/index.html")
+  :link '(custom-manual "(gnus)Picons")
+  :group 'gnus-picon)
+
+(defun gnus-picons-installed-p ()
+  "Say whether picons are installed on your machine."
+  (let ((installed nil))
+    (dolist (database gnus-picon-databases)
+      (when (file-exists-p database)
+       (setq installed t)))
+    installed))
+
  (defcustom gnus-article-mime-part-function nil
    "Function called with a MIME handle as the argument.
  This is meant for people who want to do something automatic based
  (defcustom gnus-article-mime-part-function nil
    "Function called with a MIME handle as the argument.
  This is meant for people who want to do something automatic based
@@ -759,24 +820,9 @@ used."
      ("toggle display" . gnus-article-press-button)
      ("toggle display" . gnus-article-view-part-as-charset)
      ("view as type" . gnus-mime-view-part-as-type)
      ("toggle display" . gnus-article-press-button)
      ("toggle display" . gnus-article-view-part-as-charset)
      ("view as type" . gnus-mime-view-part-as-type)
-    ("internalize type" . gnus-mime-internalize-part)
-    ("externalize type" . gnus-mime-externalize-part))
-  "An alist of actions that run on the MIME attachment."
-  :group 'gnus-article-mime
-  :type '(repeat (cons (string :tag "name")
-                      (function))))
-
-(defcustom gnus-mime-action-alist
-  '(("save to file" . gnus-mime-save-part)
-    ("display as text" . gnus-mime-inline-part)
-    ("view the part" . gnus-mime-view-part)
-    ("pipe to command" . gnus-mime-pipe-part)
-    ("toggle display" . gnus-article-press-button)
-    ("view as type" . gnus-mime-view-part-as-type)
-    ("internalize type" . gnus-mime-internalize-part)
-    ("externalize type" . gnus-mime-externalize-part))
+    ("view internally" . gnus-mime-view-part-internally)
+    ("view externally" . gnus-mime-view-part-externally))
    "An alist of actions that run on the MIME attachment."
    "An alist of actions that run on the MIME attachment."
-  :version "21.1"
    :group 'gnus-article-mime
    :type '(repeat (cons (string :tag "name")
                        (function))))
    :group 'gnus-article-mime
    :type '(repeat (cons (string :tag "name")
                        (function))))
@@ -811,7 +857,7 @@ used."
  (defcustom gnus-treat-highlight-signature '(or last (typep "text/x-vcard"))
    "Highlight the signature.
  Valid values are nil, t, `head', `last', an integer or a predicate.
  (defcustom gnus-treat-highlight-signature '(or last (typep "text/x-vcard"))
    "Highlight the signature.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles'."
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  (put 'gnus-treat-highlight-signature 'highlight t)
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  (put 'gnus-treat-highlight-signature 'highlight t)
@@ -819,7 +865,7 @@ See the manual for details."
  (defcustom gnus-treat-buttonize 100000
    "Add buttons.
  Valid values are nil, t, `head', `last', an integer or a predicate.
  (defcustom gnus-treat-buttonize 100000
    "Add buttons.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles'."
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  (put 'gnus-treat-buttonize 'highlight t)
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  (put 'gnus-treat-buttonize 'highlight t)
@@ -827,7 +873,7 @@ See the manual for details."
  (defcustom gnus-treat-buttonize-head 'head
    "Add buttons to the head.
  Valid values are nil, t, `head', `last', an integer or a predicate.
  (defcustom gnus-treat-buttonize-head 'head
    "Add buttons to the head.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
    :group 'gnus-article-treat
    :type gnus-article-treat-head-custom)
  (put 'gnus-treat-buttonize-head 'highlight t)
    :group 'gnus-article-treat
    :type gnus-article-treat-head-custom)
  (put 'gnus-treat-buttonize-head 'highlight t)
@@ -839,7 +885,7 @@ See the manual for details."
         50000)
    "Emphasize text.
  Valid values are nil, t, `head', `last', an integer or a predicate.
         50000)
    "Emphasize text.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  (put 'gnus-treat-emphasize 'highlight t)
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  (put 'gnus-treat-emphasize 'highlight t)
@@ -847,70 +893,70 @@ See the manual for details."
  (defcustom gnus-treat-strip-cr nil
    "Remove carriage returns.
  Valid values are nil, t, `head', `last', an integer or a predicate.
  (defcustom gnus-treat-strip-cr nil
    "Remove carriage returns.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
+  :group 'gnus-article-treat
+  :type gnus-article-treat-custom)
+
+(defcustom gnus-treat-unsplit-urls nil
+  "Remove newlines from within URLs.
+Valid values are nil, t, `head', `last', an integer or a predicate.
+See Info node `(gnus)Customizing Articles' for details."
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  
  (defcustom gnus-treat-leading-whitespace nil
    "Remove leading whitespace in headers.
  Valid values are nil, t, `head', `last', an integer or a predicate.
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  
  (defcustom gnus-treat-leading-whitespace nil
    "Remove leading whitespace in headers.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  
  (defcustom gnus-treat-hide-headers 'head
    "Hide headers.
  Valid values are nil, t, `head', `last', an integer or a predicate.
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  
  (defcustom gnus-treat-hide-headers 'head
    "Hide headers.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
    :group 'gnus-article-treat
    :type gnus-article-treat-head-custom)
  
  (defcustom gnus-treat-hide-boring-headers nil
    "Hide boring headers.
  Valid values are nil, t, `head', `last', an integer or a predicate.
    :group 'gnus-article-treat
    :type gnus-article-treat-head-custom)
  
  (defcustom gnus-treat-hide-boring-headers nil
    "Hide boring headers.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
    :group 'gnus-article-treat
    :type gnus-article-treat-head-custom)
  
  (defcustom gnus-treat-hide-signature nil
    "Hide the signature.
  Valid values are nil, t, `head', `last', an integer or a predicate.
    :group 'gnus-article-treat
    :type gnus-article-treat-head-custom)
  
  (defcustom gnus-treat-hide-signature nil
    "Hide the signature.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  
  (defcustom gnus-treat-fill-article nil
    "Fill the article.
  Valid values are nil, t, `head', `last', an integer or a predicate.
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  
  (defcustom gnus-treat-fill-article nil
    "Fill the article.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  
  (defcustom gnus-treat-hide-citation nil
    "Hide cited text.
  Valid values are nil, t, `head', `last', an integer or a predicate.
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  
  (defcustom gnus-treat-hide-citation nil
    "Hide cited text.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  
  (defcustom gnus-treat-hide-citation-maybe nil
    "Hide cited text.
  Valid values are nil, t, `head', `last', an integer or a predicate.
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  
  (defcustom gnus-treat-hide-citation-maybe nil
    "Hide cited text.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
-  :group 'gnus-article-treat
-  :type gnus-article-treat-custom)
-
-(defcustom gnus-treat-hide-citation-maybe nil
-  "Hide cited text.
-Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  
  (defcustom gnus-treat-strip-list-identifiers 'head
    "Strip list identifiers from `gnus-list-identifiers`.
  Valid values are nil, t, `head', `last', an integer or a predicate.
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  
  (defcustom gnus-treat-strip-list-identifiers 'head
    "Strip list identifiers from `gnus-list-identifiers`.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
    :version "21.1"
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
    :version "21.1"
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
@@ -918,14 +964,14 @@ See the manual for details."
  (defcustom gnus-treat-strip-pgp t
    "Strip PGP signatures.
  Valid values are nil, t, `head', `last', an integer or a predicate.
  (defcustom gnus-treat-strip-pgp t
    "Strip PGP signatures.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  
  (defcustom gnus-treat-strip-pem nil
    "Strip PEM signatures.
  Valid values are nil, t, `head', `last', an integer or a predicate.
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  
  (defcustom gnus-treat-strip-pem nil
    "Strip PEM signatures.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  
@@ -933,14 +979,14 @@ See the manual for details."
    "Strip banners from articles.
  The banner to be stripped is specified in the `banner' group parameter.
  Valid values are nil, t, `head', `last', an integer or a predicate.
    "Strip banners from articles.
  The banner to be stripped is specified in the `banner' group parameter.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  
  (defcustom gnus-treat-highlight-headers 'head
    "Highlight the headers.
  Valid values are nil, t, `head', `last', an integer or a predicate.
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  
  (defcustom gnus-treat-highlight-headers 'head
    "Highlight the headers.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
    :group 'gnus-article-treat
    :type gnus-article-treat-head-custom)
  (put 'gnus-treat-highlight-headers 'highlight t)
    :group 'gnus-article-treat
    :type gnus-article-treat-head-custom)
  (put 'gnus-treat-highlight-headers 'highlight t)
@@ -948,7 +994,7 @@ See the manual for details."
  (defcustom gnus-treat-highlight-citation t
    "Highlight cited text.
  Valid values are nil, t, `head', `last', an integer or a predicate.
  (defcustom gnus-treat-highlight-citation t
    "Highlight cited text.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  (put 'gnus-treat-highlight-citation 'highlight t)
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  (put 'gnus-treat-highlight-citation 'highlight t)
@@ -956,42 +1002,42 @@ See the manual for details."
  (defcustom gnus-treat-date-ut nil
    "Display the Date in UT (GMT).
  Valid values are nil, t, `head', `last', an integer or a predicate.
  (defcustom gnus-treat-date-ut nil
    "Display the Date in UT (GMT).
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
    :group 'gnus-article-treat
    :type gnus-article-treat-head-custom)
  
  (defcustom gnus-treat-date-local nil
    "Display the Date in the local timezone.
  Valid values are nil, t, `head', `last', an integer or a predicate.
    :group 'gnus-article-treat
    :type gnus-article-treat-head-custom)
  
  (defcustom gnus-treat-date-local nil
    "Display the Date in the local timezone.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
    :group 'gnus-article-treat
    :type gnus-article-treat-head-custom)
  
  (defcustom gnus-treat-date-english nil
    "Display the Date in a format that can be read aloud in English.
  Valid values are nil, t, `head', `last', an integer or a predicate.
    :group 'gnus-article-treat
    :type gnus-article-treat-head-custom)
  
  (defcustom gnus-treat-date-english nil
    "Display the Date in a format that can be read aloud in English.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
    :group 'gnus-article-treat
    :type gnus-article-treat-head-custom)
  
  (defcustom gnus-treat-date-lapsed nil
    "Display the Date header in a way that says how much time has elapsed.
  Valid values are nil, t, `head', `last', an integer or a predicate.
    :group 'gnus-article-treat
    :type gnus-article-treat-head-custom)
  
  (defcustom gnus-treat-date-lapsed nil
    "Display the Date header in a way that says how much time has elapsed.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
    :group 'gnus-article-treat
    :type gnus-article-treat-head-custom)
  
  (defcustom gnus-treat-date-original nil
    "Display the date in the original timezone.
  Valid values are nil, t, `head', `last', an integer or a predicate.
    :group 'gnus-article-treat
    :type gnus-article-treat-head-custom)
  
  (defcustom gnus-treat-date-original nil
    "Display the date in the original timezone.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
    :group 'gnus-article-treat
    :type gnus-article-treat-head-custom)
  
  (defcustom gnus-treat-date-iso8601 nil
    "Display the date in the ISO8601 format.
  Valid values are nil, t, `head', `last', an integer or a predicate.
    :group 'gnus-article-treat
    :type gnus-article-treat-head-custom)
  
  (defcustom gnus-treat-date-iso8601 nil
    "Display the date in the ISO8601 format.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
    :version "21.1"
    :group 'gnus-article-treat
    :type gnus-article-treat-head-custom)
    :version "21.1"
    :group 'gnus-article-treat
    :type gnus-article-treat-head-custom)
@@ -1000,14 +1046,14 @@ See the manual for details."
    "Display the date in a user-defined format.
  The format is defined by the `gnus-article-time-format' variable.
  Valid values are nil, t, `head', `last', an integer or a predicate.
    "Display the date in a user-defined format.
  The format is defined by the `gnus-article-time-format' variable.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
    :group 'gnus-article-treat
    :type gnus-article-treat-head-custom)
  
  (defcustom gnus-treat-strip-headers-in-body t
    "Strip the X-No-Archive header line from the beginning of the body.
  Valid values are nil, t, `head', `last', an integer or a predicate.
    :group 'gnus-article-treat
    :type gnus-article-treat-head-custom)
  
  (defcustom gnus-treat-strip-headers-in-body t
    "Strip the X-No-Archive header line from the beginning of the body.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
    :version "21.1"
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
    :version "21.1"
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
@@ -1015,53 +1061,116 @@ See the manual for details."
  (defcustom gnus-treat-strip-trailing-blank-lines nil
    "Strip trailing blank lines.
  Valid values are nil, t, `head', `last', an integer or a predicate.
  (defcustom gnus-treat-strip-trailing-blank-lines nil
    "Strip trailing blank lines.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  
  (defcustom gnus-treat-strip-leading-blank-lines nil
    "Strip leading blank lines.
  Valid values are nil, t, `head', `last', an integer or a predicate.
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  
  (defcustom gnus-treat-strip-leading-blank-lines nil
    "Strip leading blank lines.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  
  (defcustom gnus-treat-strip-multiple-blank-lines nil
    "Strip multiple blank lines.
  Valid values are nil, t, `head', `last', an integer or a predicate.
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  
  (defcustom gnus-treat-strip-multiple-blank-lines nil
    "Strip multiple blank lines.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
+  :group 'gnus-article-treat
+  :type gnus-article-treat-custom)
+
+(defcustom gnus-treat-unfold-headers 'head
+  "Unfold folded header lines.
+Valid values are nil, t, `head', `last', an integer or a predicate.
+See Info node `(gnus)Customizing Articles' for details."
+  :group 'gnus-article-treat
+  :type gnus-article-treat-custom)
+
+(defcustom gnus-treat-fold-headers nil
+  "Fold headers.
+Valid values are nil, t, `head', `last', an integer or a predicate.
+See Info node `(gnus)Customizing Articles' for details."
+  :group 'gnus-article-treat
+  :type gnus-article-treat-custom)
+
+(defcustom gnus-treat-fold-newsgroups 'head
+  "Fold the Newsgroups and Followup-To headers.
+Valid values are nil, t, `head', `last', an integer or a predicate.
+See Info node `(gnus)Customizing Articles' for details."
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  
  (defcustom gnus-treat-overstrike t
    "Treat overstrike highlighting.
  Valid values are nil, t, `head', `last', an integer or a predicate.
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  
  (defcustom gnus-treat-overstrike t
    "Treat overstrike highlighting.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  (put 'gnus-treat-overstrike 'highlight t)
  
  (defcustom gnus-treat-display-xface
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  (put 'gnus-treat-overstrike 'highlight t)
  
  (defcustom gnus-treat-display-xface
-  (and (or (and (fboundp 'image-type-available-p)
+  (and (not noninteractive)
+       (or (and (fboundp 'image-type-available-p)
                 (image-type-available-p 'xbm)
                 (string-match "^0x" (shell-command-to-string "uncompface")))
                 (image-type-available-p 'xbm)
                 (string-match "^0x" (shell-command-to-string "uncompface")))
-          (and (featurep 'xemacs) (featurep 'xface))
+          (and (featurep 'xemacs)
+               (featurep 'xface))
            (eq 'x-face-mule-gnus-article-display-x-face
                gnus-article-x-face-command))
         'head)
    "Display X-Face headers.
  Valid values are nil, t, `head', `last', an integer or a predicate.
            (eq 'x-face-mule-gnus-article-display-x-face
                gnus-article-x-face-command))
         'head)
    "Display X-Face headers.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' and Info node
+`(gnus)X-Face' for details."
    :group 'gnus-article-treat
    ;;:version "21.1"
    :type gnus-article-treat-head-custom)
  (put 'gnus-treat-display-xface 'highlight t)
  
    :group 'gnus-article-treat
    ;;:version "21.1"
    :type gnus-article-treat-head-custom)
  (put 'gnus-treat-display-xface 'highlight t)
  
+(defcustom gnus-article-should-use-smiley-mule
+  (not (or (featurep 'xemacs)
+          (gnus-image-type-available-p 'xpm)
+          (gnus-image-type-available-p 'pbm)))
+  "If non-nil, gnus uses `smiley-mule' for displaying smileys rather than
+`smiley'.  It defaults to t when Emacs 20 or earlier is running.
+`smiley-mule' is boundled in BITMAP-MULE package.  You can set it to t
+even if you are using Emacs 21+.  It has no effect on XEmacs."
+  :group 'gnus-article-various
+  :type 'boolean
+  :get (lambda (symbol)
+        (and (default-value symbol)
+             (not (featurep 'xemacs))
+             (module-installed-p 'smiley-mule)
+             t))
+  :set (lambda (symbol value)
+        (set-default symbol (and value
+                                 (not (featurep 'xemacs))
+                                 (module-installed-p 'smiley-mule)
+                                 t))))
+
+(defvar gnus-article-smiley-mule-loaded-p nil
+  "Internal variable used to say whether `smiley-mule' is loaded (whether
+smiley functions are not overridden by `smiley').")
+
+(defcustom gnus-treat-display-grey-xface
+  (and (not noninteractive)
+       (or (featurep 'xemacs)
+          (and (fboundp 'display-images-p)
+               (display-images-p)))
+       (string-match "^0x" (shell-command-to-string "uncompface"))
+       t)
+  "Display grey X-Face headers.
+Valid values are nil, t."
+  :group 'gnus-article-treat
+  :version "21.3"
+  :type 'boolean)
+(put 'gnus-treat-display-grey-xface 'highlight t)
+
  (defcustom gnus-treat-display-smileys
    (if (or (and (featurep 'xemacs)
                (featurep 'xpm))
  (defcustom gnus-treat-display-smileys
    (if (or (and (featurep 'xemacs)
                (featurep 'xpm))
-         (and (fboundp 'image-type-available-p)
-              (image-type-available-p 'pbm))
+         (gnus-image-type-available-p 'xpm)
+         (gnus-image-type-available-p 'pbm)
           (and (not (featurep 'xemacs))
                window-system
                (module-installed-p 'smiley-mule)))
           (and (not (featurep 'xemacs))
                window-system
                (module-installed-p 'smiley-mule)))
@@ -1069,24 +1178,74 @@ See the manual for details."
      nil)
    "Display smileys.
  Valid values are nil, t, `head', `last', an integer or a predicate.
      nil)
    "Display smileys.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' and Info node
+`(gnus)Smileys' for details."
    :group 'gnus-article-treat
    ;;:version "21.1"
    :type gnus-article-treat-custom)
  (put 'gnus-treat-display-smileys 'highlight t)
  
    :group 'gnus-article-treat
    ;;:version "21.1"
    :type gnus-article-treat-custom)
  (put 'gnus-treat-display-smileys 'highlight t)
  
-(defcustom gnus-treat-display-picons (if (featurep 'xemacs) 'head nil)
-  "Display picons.
+(defcustom gnus-treat-from-picon
+  (if (and (gnus-image-type-available-p 'xpm)
+          (gnus-picons-installed-p))
+      'head nil)
+  "Display picons in the From header.
+Valid values are nil, t, `head', `last', an integer or a predicate.
+See Info node `(gnus)Customizing Articles' and Info node
+`(gnus)Picons' for details."
+  :group 'gnus-article-treat
+  :group 'gnus-picon
+  :link '(info-link "(gnus)Customizing Articles")
+  :link '(info-link "(gnus)Picons")
+  :type gnus-article-treat-head-custom)
+(put 'gnus-treat-from-picon 'highlight t)
+
+(defcustom gnus-treat-mail-picon
+  (if (and (gnus-image-type-available-p 'xpm)
+          (gnus-picons-installed-p))
+      'head nil)
+  "Display picons in To and Cc headers.
  Valid values are nil, t, `head', `last', an integer or a predicate.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' and Info node
+`(gnus)Picons' for details."
    :group 'gnus-article-treat
    :group 'gnus-article-treat
+  :group 'gnus-picon
+  :link '(info-link "(gnus)Customizing Articles")
+  :link '(info-link "(gnus)Picons")
    :type gnus-article-treat-head-custom)
    :type gnus-article-treat-head-custom)
-(put 'gnus-treat-display-picons 'highlight t)
+(put 'gnus-treat-mail-picon 'highlight t)
+
+(defcustom gnus-treat-newsgroups-picon
+  (if (and (gnus-image-type-available-p 'xpm)
+          (gnus-picons-installed-p))
+      'head nil)
+  "Display picons in the Newsgroups and Followup-To headers.
+Valid values are nil, t, `head', `last', an integer or a predicate.
+See Info node `(gnus)Customizing Articles' and Info node
+`(gnus)Picons' for details."
+  :group 'gnus-article-treat
+  :group 'gnus-picon
+  :link '(info-link "(gnus)Customizing Articles")
+  :link '(info-link "(gnus)Picons")
+  :type gnus-article-treat-head-custom)
+(put 'gnus-treat-newsgroups-picon 'highlight t)
+
+(defcustom gnus-treat-body-boundary
+  (if (or gnus-treat-newsgroups-picon
+         gnus-treat-mail-picon
+         gnus-treat-from-picon)
+      'head nil)
+  "Draw a boundary at the end of the headers.
+Valid values are nil, t, `head', `last', an integer or a predicate.
+See Info node `(gnus)Customizing Articles' for details."
+  :version "21.1"
+  :group 'gnus-article-treat
+  :type gnus-article-treat-custom)
  
  (defcustom gnus-treat-capitalize-sentences nil
    "Capitalize sentence-starting words.
  Valid values are nil, t, `head', `last', an integer or a predicate.
  
  (defcustom gnus-treat-capitalize-sentences nil
    "Capitalize sentence-starting words.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
    :version "21.1"
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
    :version "21.1"
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
@@ -1094,14 +1253,14 @@ See the manual for details."
  (defcustom gnus-treat-fill-long-lines nil
    "Fill long lines.
  Valid values are nil, t, `head', `last', an integer or a predicate.
  (defcustom gnus-treat-fill-long-lines nil
    "Fill long lines.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  
  (defcustom gnus-treat-play-sounds nil
    "Play sounds.
  Valid values are nil, t, `head', `last', an integer or a predicate.
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
  
  (defcustom gnus-treat-play-sounds nil
    "Play sounds.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
    :version "21.1"
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
    :version "21.1"
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
@@ -1119,7 +1278,7 @@ decode the body, '(or header t) for the whole article, etc."
  (defcustom gnus-treat-translate nil
    "Translate articles from one language to another.
  Valid values are nil, t, `head', `last', an integer or a predicate.
  (defcustom gnus-treat-translate nil
    "Translate articles from one language to another.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
    :version "21.1"
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
    :version "21.1"
    :group 'gnus-article-treat
    :type gnus-article-treat-custom)
@@ -1128,7 +1287,15 @@ See the manual for details."
    "Verify X-PGP-Sig.
  To automatically treat X-PGP-Sig, set it to head.
  Valid values are nil, t, `head', `last', an integer or a predicate.
    "Verify X-PGP-Sig.
  To automatically treat X-PGP-Sig, set it to head.
  Valid values are nil, t, `head', `last', an integer or a predicate.
-See the manual for details."
+See Info node `(gnus)Customizing Articles' for details."
+  :group 'gnus-article-treat
+  :group 'mime-security
+  :type gnus-article-treat-custom)
+
+(defcustom gnus-treat-monafy nil
+  "Display body part with mona font.
+Valid values are nil, t, `head', `last', an integer or a predicate.
+See Info node `(gnus)Customizing Articles' for details."
    :group 'gnus-article-treat
    :group 'mime-security
    :type gnus-article-treat-custom)
    :group 'gnus-article-treat
    :group 'mime-security
    :type gnus-article-treat-custom)
@@ -1144,6 +1311,9 @@ It is a string, such as \"PGP\". If nil, ask user."
    :type 'string
    :group 'mime-security)
  
    :type 'string
    :group 'mime-security)
  
+(defvar gnus-article-wash-function nil
+  "Function used for converting HTML into text.")
+
  ;;; Internal variables
  
  (defvar gnus-english-month-names
  ;;; Internal variables
  
  (defvar gnus-english-month-names
@@ -1153,19 +1323,21 @@ It is a string, such as \"PGP\". If nil, ask user."
  (defvar article-goto-body-goes-to-point-min-p nil)
  (defvar gnus-article-wash-types nil)
  (defvar gnus-article-emphasis-alist nil)
  (defvar article-goto-body-goes-to-point-min-p nil)
  (defvar gnus-article-wash-types nil)
  (defvar gnus-article-emphasis-alist nil)
+(defvar gnus-article-image-alist nil)
  
  (defvar gnus-article-mime-handle-alist-1 nil)
  (defvar gnus-treatment-function-alist
  
  (defvar gnus-article-mime-handle-alist-1 nil)
  (defvar gnus-treatment-function-alist
-  `((gnus-treat-decode-article-as-default-mime-charset
+  '((gnus-treat-decode-article-as-default-mime-charset
       gnus-article-decode-article-as-default-mime-charset)
      (gnus-treat-x-pgp-sig gnus-article-verify-x-pgp-sig)
       gnus-article-decode-article-as-default-mime-charset)
      (gnus-treat-x-pgp-sig gnus-article-verify-x-pgp-sig)
+    (gnus-treat-monafy gnus-article-monafy)
      (gnus-treat-strip-banner gnus-article-strip-banner)
      (gnus-treat-strip-headers-in-body gnus-article-strip-headers-in-body)
      (gnus-treat-buttonize gnus-article-add-buttons)
      (gnus-treat-fill-article gnus-article-fill-cited-article)
      (gnus-treat-fill-long-lines gnus-article-fill-long-lines)
      (gnus-treat-strip-cr gnus-article-remove-cr)
      (gnus-treat-strip-banner gnus-article-strip-banner)
      (gnus-treat-strip-headers-in-body gnus-article-strip-headers-in-body)
      (gnus-treat-buttonize gnus-article-add-buttons)
      (gnus-treat-fill-article gnus-article-fill-cited-article)
      (gnus-treat-fill-long-lines gnus-article-fill-long-lines)
      (gnus-treat-strip-cr gnus-article-remove-cr)
-    (gnus-treat-display-xface gnus-article-display-x-face)
+    (gnus-treat-unsplit-urls gnus-article-unsplit-urls)
      (gnus-treat-date-ut gnus-article-date-ut)
      (gnus-treat-date-local gnus-article-date-local)
      (gnus-treat-date-english gnus-article-date-english)
      (gnus-treat-date-ut gnus-article-date-ut)
      (gnus-treat-date-local gnus-article-date-local)
      (gnus-treat-date-english gnus-article-date-english)
@@ -1176,15 +1348,14 @@ It is a string, such as \"PGP\". If nil, ask user."
      (gnus-treat-hide-headers gnus-article-maybe-hide-headers)
      (gnus-treat-hide-boring-headers gnus-article-hide-boring-headers)
      (gnus-treat-hide-signature gnus-article-hide-signature)
      (gnus-treat-hide-headers gnus-article-maybe-hide-headers)
      (gnus-treat-hide-boring-headers gnus-article-hide-boring-headers)
      (gnus-treat-hide-signature gnus-article-hide-signature)
-    (gnus-treat-hide-citation gnus-article-hide-citation)
-    (gnus-treat-hide-citation-maybe gnus-article-hide-citation-maybe)
      (gnus-treat-strip-list-identifiers gnus-article-hide-list-identifiers)
      (gnus-treat-leading-whitespace gnus-article-remove-leading-whitespace)
      (gnus-treat-strip-pgp gnus-article-hide-pgp)
      (gnus-treat-strip-pem gnus-article-hide-pem)
      (gnus-treat-strip-list-identifiers gnus-article-hide-list-identifiers)
      (gnus-treat-leading-whitespace gnus-article-remove-leading-whitespace)
      (gnus-treat-strip-pgp gnus-article-hide-pgp)
      (gnus-treat-strip-pem gnus-article-hide-pem)
+    (gnus-treat-from-picon gnus-treat-from-picon)
+    (gnus-treat-mail-picon gnus-treat-mail-picon)
+    (gnus-treat-newsgroups-picon gnus-treat-newsgroups-picon)
      (gnus-treat-highlight-headers gnus-article-highlight-headers)
      (gnus-treat-highlight-headers gnus-article-highlight-headers)
-    (gnus-treat-emphasize gnus-article-emphasize)
-    (gnus-treat-highlight-citation gnus-article-highlight-citation)
      (gnus-treat-highlight-signature gnus-article-highlight-signature)
      (gnus-treat-strip-trailing-blank-lines
       gnus-article-remove-trailing-blank-lines)
      (gnus-treat-highlight-signature gnus-article-highlight-signature)
      (gnus-treat-strip-trailing-blank-lines
       gnus-article-remove-trailing-blank-lines)
@@ -1193,13 +1364,20 @@ It is a string, such as \"PGP\". If nil, ask user."
      (gnus-treat-strip-multiple-blank-lines
       gnus-article-strip-multiple-blank-lines)
      (gnus-treat-overstrike gnus-article-treat-overstrike)
      (gnus-treat-strip-multiple-blank-lines
       gnus-article-strip-multiple-blank-lines)
      (gnus-treat-overstrike gnus-article-treat-overstrike)
+    (gnus-treat-unfold-headers gnus-article-treat-unfold-headers)
+    (gnus-treat-fold-headers gnus-article-treat-fold-headers)
+    ;; Displaying X-Face should be done after unfolding headers
+    ;; to protect bitmap lines.
+    (gnus-treat-display-xface gnus-article-display-x-face)
+    (gnus-treat-fold-newsgroups gnus-article-treat-fold-newsgroups)
      (gnus-treat-buttonize-head gnus-article-add-buttons-to-head)
      (gnus-treat-buttonize-head gnus-article-add-buttons-to-head)
-    (gnus-treat-display-smileys ,(if (or (featurep 'xemacs)
-                                        (>= emacs-major-version 21))
-                                    'gnus-smiley-display
-                                  'gnus-article-smiley-display))
+    (gnus-treat-display-smileys gnus-treat-smiley)
      (gnus-treat-capitalize-sentences gnus-article-capitalize-sentences)
      (gnus-treat-capitalize-sentences gnus-article-capitalize-sentences)
-    (gnus-treat-display-picons gnus-article-display-picons)
+    (gnus-treat-emphasize gnus-article-emphasize)
+    (gnus-treat-hide-citation gnus-article-hide-citation)
+    (gnus-treat-hide-citation-maybe gnus-article-hide-citation-maybe)
+    (gnus-treat-highlight-citation gnus-article-highlight-citation)
+    (gnus-treat-body-boundary gnus-article-treat-body-boundary)
      (gnus-treat-play-sounds gnus-earcon-display)))
  
  (defvar gnus-article-mime-handle-alist nil)
      (gnus-treat-play-sounds gnus-earcon-display)))
  
  (defvar gnus-article-mime-handle-alist nil)
@@ -1210,8 +1388,8 @@ It is a string, such as \"PGP\". If nil, ask user."
    (let ((table (copy-syntax-table text-mode-syntax-table)))
      ;; This causes the citation match run O(2^n).
      ;; (modify-syntax-entry ?- "w" table)
    (let ((table (copy-syntax-table text-mode-syntax-table)))
      ;; This causes the citation match run O(2^n).
      ;; (modify-syntax-entry ?- "w" table)
-    (modify-syntax-entry ?> ")" table)
-    (modify-syntax-entry ?< "(" table)
+    (modify-syntax-entry ?> ")<" table)
+    (modify-syntax-entry ?< "(>" table)
      table)
    "Syntax table used in article mode buffers.
  Initialized from `text-mode-syntax-table.")
      table)
    "Syntax table used in article mode buffers.
  Initialized from `text-mode-syntax-table.")
@@ -1227,6 +1405,34 @@ Initialized from `text-mode-syntax-table.")
  
  (defvar gnus-inhibit-hiding nil)
  
  
  (defvar gnus-inhibit-hiding nil)
  
+;;; Macros for dealing with the article buffer.
+
+(defmacro gnus-with-article-headers (&rest forms)
+  `(save-excursion
+     (set-buffer gnus-article-buffer)
+     (save-restriction
+       (let ((buffer-read-only nil)
+            (inhibit-point-motion-hooks t)
+            (case-fold-search t))
+        (article-narrow-to-head)
+        ,@forms))))
+
+(put 'gnus-with-article-headers 'lisp-indent-function 0)
+(put 'gnus-with-article-headers 'edebug-form-spec '(body))
+
+(defmacro gnus-with-article-buffer (&rest forms)
+  `(save-excursion
+     (set-buffer gnus-article-buffer)
+     (let ((buffer-read-only nil))
+       ,@forms)))
+
+(put 'gnus-with-article-buffer 'lisp-indent-function 0)
+(put 'gnus-with-article-buffer 'edebug-form-spec '(body))
+
+(defun gnus-article-goto-header (header)
+  "Go to HEADER, which is a regular expression."
+  (re-search-forward (concat "^\\(" header "\\):") nil t))
+
  (defsubst gnus-article-hide-text (b e props)
    "Set text PROPS on the B to E region, extending `intangible' 1 past B."
    (gnus-add-text-properties-when 'article-type nil b e props)
  (defsubst gnus-article-hide-text (b e props)
    "Set text PROPS on the B to E region, extending `intangible' 1 past B."
    (gnus-add-text-properties-when 'article-type nil b e props)
@@ -1244,14 +1450,13 @@ Initialized from `text-mode-syntax-table.")
  
  (defun gnus-article-hide-text-type (b e type)
    "Hide text of TYPE between B and E."
  
  (defun gnus-article-hide-text-type (b e type)
    "Hide text of TYPE between B and E."
-  (push type gnus-article-wash-types)
+  (gnus-add-wash-type type)
    (gnus-article-hide-text
     b e (cons 'article-type (cons type gnus-hidden-properties))))
  
  (defun gnus-article-unhide-text-type (b e type)
    "Unhide text of TYPE between B and E."
    (gnus-article-hide-text
     b e (cons 'article-type (cons type gnus-hidden-properties))))
  
  (defun gnus-article-unhide-text-type (b e type)
    "Unhide text of TYPE between B and E."
-  (setq gnus-article-wash-types
-       (delq type gnus-article-wash-types))
+  (gnus-delete-wash-type type)
    (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)
@@ -1360,15 +1565,14 @@ Initialized from `text-mode-syntax-table.")
             (when (setq beg (text-property-any
                              (point-min) (point-max) 'message-rank (+ 2 max)))
               ;; We delete or make invisible the unwanted headers.
             (when (setq beg (text-property-any
                              (point-min) (point-max) 'message-rank (+ 2 max)))
               ;; We delete or make invisible the unwanted headers.
-             (push 'headers gnus-article-wash-types)
+             (gnus-add-wash-type 'headers)
               (if delete
                   (progn
                     (add-text-properties
                      (point-min) (+ 5 (point-min))
                      '(article-type headers dummy-invisible t))
                     (delete-region beg (point-max)))
               (if delete
                   (progn
                     (add-text-properties
                      (point-min) (+ 5 (point-min))
                      '(article-type headers dummy-invisible t))
                     (delete-region beg (point-max)))
-               (gnus-article-hide-text-type beg (point-max) 'headers))))))))
-  )
+               (gnus-article-hide-text-type beg (point-max) 'headers)))))))))
  
  (defun article-hide-boring-headers (&optional arg)
    "Toggle hiding of headers that aren't very interesting.
  
  (defun article-hide-boring-headers (&optional arg)
    "Toggle hiding of headers that aren't very interesting.
@@ -1537,13 +1741,18 @@ if given a positive prefix, always hide."
                                        'invisible t)))
             ;; If the invisible text is not terminated with newline, we
             ;; won't expose it.  Because it may be created by x-face-mule.
                                        'invisible t)))
             ;; If the invisible text is not terminated with newline, we
             ;; won't expose it.  Because it may be created by x-face-mule.
-           ;; BTW, XEmacs sometimes fail in putting a invisible text
+           ;; BTW, XEmacs sometimes fail in putting an invisible text
             ;; property with `gnus-article-hide-text' (really?).  In that
             ;; case, the invisible text might be started from the middle of
             ;; property with `gnus-article-hide-text' (really?).  In that
             ;; case, the invisible text might be started from the middle of
-           ;; a line so we will expose the sort of thing.
+           ;; a line, so we will expose the sort of thing.
             (when (or (not (or (eq header-start field-start)
                                (eq ?\n (char-before field-start))))
             (when (or (not (or (eq header-start field-start)
                                (eq ?\n (char-before field-start))))
-                     (eq ?\n (char-before field-end)))
+                     (eq ?\n (char-before field-end))
+                     ;; Expose a boundary line anyway.
+                     (string-equal
+                      "\nX-Boundary: "
+                      (buffer-substring (max (- field-end 13) header-start)
+                                        field-end)))
               (remove-text-properties field-start field-end
                                       gnus-hidden-properties)
               (put-text-property field-start field-end
               (remove-text-properties field-start field-end
                                       gnus-hidden-properties)
               (put-text-property field-start field-end
@@ -1675,6 +1884,99 @@ MAP is an alist where the elements are on the form (\"from\" \"to\")."
               (put-text-property
                (point) end 'face 'underline)))))))))
  
               (put-text-property
                (point) end 'face 'underline)))))))))
  
+(defun gnus-article-treat-unfold-headers ()
+  "Unfold folded message headers.
+Only the headers that fit into the current window width will be
+unfolded."
+  (interactive)
+  (gnus-with-article-headers
+    (let (length)
+      (while (not (eobp))
+       (save-restriction
+         (mail-header-narrow-to-field)
+         (let ((header (buffer-substring (point-min) (point-max))))
+           (with-temp-buffer
+             (insert header)
+             (goto-char (point-min))
+             (while (re-search-forward "\n[\t ]" nil t)
+               (replace-match " " t t)))
+           (setq length (- (point-max) (point-min) 1)))
+         (when (< length (window-width))
+           (while (re-search-forward "\n[\t ]" nil t)
+             (replace-match " " t t)))
+         (goto-char (point-max)))))))
+
+(defun gnus-article-treat-fold-headers ()
+  "Fold message headers."
+  (interactive)
+  (gnus-with-article-headers
+    (while (not (eobp))
+      (save-restriction
+       (mail-header-narrow-to-field)
+       (mail-header-fold-field)
+       (goto-char (point-max))))))
+
+(defun gnus-treat-smiley ()
+  "Toggle display of textual emoticons (\"smileys\") as small graphical icons."
+  (interactive)
+  (unless (featurep 'xemacs)
+    (when (and (>= emacs-major-version 21)
+              (not gnus-article-should-use-smiley-mule)
+              gnus-article-smiley-mule-loaded-p)
+      (load "smiley" nil t)
+      (setq gnus-article-smiley-mule-loaded-p nil))
+    (when (and gnus-article-should-use-smiley-mule
+              (not gnus-article-smiley-mule-loaded-p))
+      (load "smiley-mule" nil t)
+      (setq gnus-article-smiley-mule-loaded-p t)))
+  (gnus-with-article-buffer
+    (if (memq 'smiley gnus-article-wash-types)
+       (gnus-delete-images 'smiley)
+      (article-goto-body)
+      (let ((images (smiley-region (point) (point-max))))
+       (when images
+         (gnus-add-wash-type 'smiley)
+         (dolist (image images)
+           (gnus-add-image 'smiley image)))))))
+
+(defun gnus-article-remove-images ()
+  "Remove all images from the article buffer."
+  (interactive)
+  (gnus-with-article-buffer
+    (dolist (elem gnus-article-image-alist)
+      (gnus-delete-images (car elem)))))
+
+(defun gnus-article-treat-fold-newsgroups ()
+  "Unfold folded message headers.
+Only the headers that fit into the current window width will be
+unfolded."
+  (interactive)
+  (gnus-with-article-headers
+    (while (gnus-article-goto-header "newsgroups\\|followup-to")
+      (save-restriction
+       (mail-header-narrow-to-field)
+       (while (re-search-forward ", *" nil t)
+         (replace-match ", " t t))
+       (mail-header-fold-field)
+       (goto-char (point-max))))))
+
+(defun gnus-article-treat-body-boundary ()
+  "Place a boundary line at the end of the headers."
+  (interactive)
+  (when (and gnus-body-boundary-delimiter
+            (> (length gnus-body-boundary-delimiter) 0))
+    (gnus-with-article-headers
+      (goto-char (point-max))
+      (let ((start (point)))
+       (insert "X-Boundary: ")
+       (gnus-add-text-properties start (point) '(invisible t intangible t))
+       (insert (let (str)
+                 (while (>= (1- (window-width)) (length str))
+                   (setq str (concat str gnus-body-boundary-delimiter)))
+                 (substring str 0 (1- (window-width))))
+               "\n")
+       (gnus-add-text-properties start (point) '(gnus-decoration 'header))))))
+
  (defun article-fill-long-lines ()
    "Fill lines that are wider than the window width."
    (interactive)
  (defun article-fill-long-lines ()
    "Fill lines that are wider than the window width."
    (interactive)
@@ -1736,79 +2038,78 @@ MAP is an alist where the elements are on the form (\"from\" \"to\")."
  (defun article-display-x-face (&optional force)
    "Look for an X-Face header and display it if present."
    (interactive (list 'force))
  (defun article-display-x-face (&optional force)
    "Look for an X-Face header and display it if present."
    (interactive (list 'force))
-  (save-excursion
-    ;; Delete the old process, if any.
-    (when (process-status "article-x-face")
-      (delete-process "article-x-face"))
-    (let ((inhibit-point-motion-hooks t)
-         x-faces
-         (case-fold-search t)
-         from last)
-      (save-restriction
-       (article-narrow-to-head)
-;;     (when (and buffer-read-only ;; When type `W f'
-;;                (progn
-;;                  (goto-char (point-min))
-;;                  (not (re-search-forward "^X-Face:[\t ]*" nil t)))
-;;                (gnus-buffer-live-p gnus-original-article-buffer))
-;;       (with-current-buffer gnus-original-article-buffer
-;;         (save-restriction
-;;           (article-narrow-to-head)
-;;           (while (re-search-forward "^X-Face:" nil t)
-;;             (setq x-faces
-;;                   (concat
-;;                    (or x-faces "")
-;;                    (buffer-substring
-;;                     (match-beginning 0)
-;;                     (1- (re-search-forward
-;;                          "^\\($\\|[^ \t]\\)" nil t))))))))
-;;       (if x-faces
-;;           (let (point start bface eface buffer-read-only)
-;;             (goto-char (point-max))
-;;             (forward-line -1)
-;;             (setq bface (get-text-property (gnus-point-at-bol) 'face)
-;;                   eface (get-text-property (1- (gnus-point-at-eol)) 'face))
-;;             (goto-char (point-max))
-;;             (setq point (point))
-;;             (insert x-faces)
-;;             (goto-char point)
-;;             (while (looking-at "\\([^:]+\\): *")
-;;               (put-text-property (match-beginning 1) (1+ (match-end 1))
-;;                                  'face bface)
-;;               (setq start (match-end 0))
-;;               (forward-line 1)
-;;               (while (looking-at "[\t ]")
-;;                 (forward-line 1))
-;;               (put-text-property start (point)
-;;                                  'face eface)))))
-       (goto-char (point-min))
-       (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)
-                       (and gnus-article-x-face-too-ugly from
-                            (not (string-match gnus-article-x-face-too-ugly
-                                               from))))
-                   ;; Has to be present.
-                   (re-search-forward "^X-Face:[\t ]*" 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.
+  (let ((wash-face-p buffer-read-only))        ;; When type `W f'
+    (gnus-with-article-headers
+      ;; Delete the old process, if any.
+      (when (process-status "article-x-face")
+       (delete-process "article-x-face"))
+      (if (memq 'xface gnus-article-wash-types)
+         ;; We have already displayed X-Faces, so we remove them
+         ;; instead.
+         (gnus-delete-images 'xface)
+       ;; Display X-Faces.
+       (let (x-faces from face grey)
           (save-excursion
           (save-excursion
-           (let ((beg (point))
-                 (end (1- (re-search-forward "^\\($\\|[^ \t]\\)" nil t))))
+           (when (and wash-face-p
+                      (progn
+                        (goto-char (point-min))
+                        (not (re-search-forward
+                              "^X-Face\\(-[0-9]+\\)?:[\t ]*" nil t)))
+                      (gnus-buffer-live-p gnus-original-article-buffer))
+             ;; If type `W f', use gnus-original-article-buffer,
+             ;; otherwise use the current buffer because displaying
+             ;; RFC822 parts calls this function too.
+             (set-buffer gnus-original-article-buffer))
+           (save-restriction
+             (mail-narrow-to-head)
+             (if gnus-treat-display-grey-xface
+                 (progn
+                   (while (gnus-article-goto-header "X-Face\\(-[0-9]+\\)?")
+                     (if (match-beginning 2)
+                         (progn
+                           (setq grey t)
+                           (push (cons (- (string-to-number (match-string 2)))
+                                       (mail-header-field-value))
+                                 x-faces))
+                       (push (cons 0 (mail-header-field-value)) x-faces)))
+                   (dolist (x-face (prog1
+                                       (if grey
+                                           (sort x-faces 'car-less-than-car)
+                                         (nreverse x-faces))
+                                     (setq x-faces nil)))
+                     (push (cdr x-face) x-faces)))
+               (while (gnus-article-goto-header "X-Face")
+                 (push (mail-header-field-value) x-faces)))
+             (setq from (message-fetch-field "from"))))
+         (if grey
+             (let ((xpm (gnus-convert-gray-x-face-to-xpm x-faces))
+                   image)
+               (when xpm
+                 (setq image (gnus-create-image xpm 'xpm t))
+                 (gnus-article-goto-header "from")
+                 (when (bobp)
+                   (insert "From: [no `from' set]\n")
+                   (forward-char -17))
+                 (gnus-add-wash-type 'xface)
+                 (gnus-add-image 'xface image)
+                 (gnus-put-image image)))
+           ;; Sending multiple EOFs to xv doesn't work, so we only do a
+           ;; single external face.
+           (when (stringp gnus-article-x-face-command)
+             (setq x-faces (list (car x-faces))))
+           (while (and (setq face (pop x-faces))
+                       gnus-article-x-face-command
+                       (or force
+                           ;; Check whether this face is censored.
+                           (not gnus-article-x-face-too-ugly)
+                           (and gnus-article-x-face-too-ugly from
+                                (not (string-match gnus-article-x-face-too-ugly
+                                                   from)))))
               ;; We display the face.
               (if (symbolp gnus-article-x-face-command)
                   ;; The command is a lisp function, so we call it.
                   (if (gnus-functionp gnus-article-x-face-command)
               ;; We display the face.
               (if (symbolp gnus-article-x-face-command)
                   ;; The command is a lisp function, so we call it.
                   (if (gnus-functionp gnus-article-x-face-command)
-                     (funcall gnus-article-x-face-command beg end)
+                     (funcall gnus-article-x-face-command face)
                     (error "%s is not a function" gnus-article-x-face-command))
                 ;; The command is a string, so we interpret the command
                 ;; as a, well, command, and fork it off.
                     (error "%s is not a function" gnus-article-x-face-command))
                 ;; The command is a string, so we interpret the command
                 ;; as a, well, command, and fork it off.
@@ -1817,7 +2118,10 @@ MAP is an alist where the elements are on the form (\"from\" \"to\")."
                    (start-process
                     "article-x-face" nil shell-file-name shell-command-switch
                     gnus-article-x-face-command))
                    (start-process
                     "article-x-face" nil shell-file-name shell-command-switch
                     gnus-article-x-face-command))
-                 (process-send-region "article-x-face" beg end)
+                 (with-temp-buffer
+                   (insert face)
+                   (process-send-region "article-x-face"
+                                        (point-min) (point-max)))
                   (process-send-eof "article-x-face"))))))))))
  
  (defun article-decode-mime-words ()
                   (process-send-eof "article-x-face"))))))))))
  
  (defun article-decode-mime-words ()
@@ -1885,8 +2189,30 @@ If PROMPT (the prefix), prompt for a coding system to use."
      (let ((charset (save-excursion
                      (set-buffer gnus-summary-buffer)
                      default-mime-charset)))
      (let ((charset (save-excursion
                      (set-buffer gnus-summary-buffer)
                      default-mime-charset)))
-      (mime-decode-header-in-buffer charset)
-      )))
+      (mime-decode-header-in-buffer charset))))
+
+(defun article-decode-group-name ()
+  "Decode group names in `Newsgroups:'."
+  (let ((inhibit-point-motion-hooks t)
+       buffer-read-only
+       (method (gnus-find-method-for-group gnus-newsgroup-name)))
+    (when (and (or gnus-group-name-charset-method-alist
+                  gnus-group-name-charset-group-alist)
+              (gnus-buffer-live-p gnus-original-article-buffer))
+      (when (nnmail-fetch-field "Newsgroups")
+       (nnheader-replace-header "Newsgroups"
+                                (gnus-decode-newsgroups
+                                 (with-current-buffer
+                                     gnus-original-article-buffer
+                                   (nnmail-fetch-field "Newsgroups"))
+                                 gnus-newsgroup-name method)))
+      (when (nnmail-fetch-field "Followup-To")
+       (nnheader-replace-header "Followup-To"
+                                (gnus-decode-newsgroups
+                                 (with-current-buffer
+                                     gnus-original-article-buffer
+                                   (nnmail-fetch-field "Followup-To"))
+                                 gnus-newsgroup-name method))))))
  
  (defun article-de-quoted-unreadable (&optional force read-charset)
    "Translate a quoted-printable-encoded article.
  
  (defun article-de-quoted-unreadable (&optional force read-charset)
    "Translate a quoted-printable-encoded article.
@@ -1963,6 +2289,16 @@ If READ-CHARSET, ask for a coding system."
      (let ((buffer-read-only nil))
        (rfc1843-decode-region (point-min) (point-max)))))
  
      (let ((buffer-read-only nil))
        (rfc1843-decode-region (point-min) (point-max)))))
  
+(defun article-unsplit-urls ()
+  "Remove the newlines that some other mailers insert into URLs."
+  (interactive)
+  (save-excursion
+    (let ((buffer-read-only nil))
+      (goto-char (point-min))
+      (while (re-search-forward
+             "^\\(\\(https?\\|ftp\\)://\\S-+\\) *\n\\(\\S-+\\)" nil t)
+       (replace-match "\\1\\3" t)))))
+
  (defun article-wash-html (&optional read-charset)
    "Format an html article.
  If READ-CHARSET, ask for a coding system."
  (defun article-wash-html (&optional read-charset)
    "Format an html article.
  If READ-CHARSET, ask for a coding system."
@@ -1988,12 +2324,43 @@ If READ-CHARSET, ask for a coding system."
        (save-window-excursion
         (save-restriction
           (narrow-to-region (point) (point-max))
        (save-window-excursion
         (save-restriction
           (narrow-to-region (point) (point-max))
-         (mm-setup-w3)
-         (let ((w3-strict-width (window-width))
-               (url-standalone-mode t))
-           (condition-case var
-               (w3-region (point-min) (point-max))
-             (error))))))))
+         (let* ((func (or gnus-article-wash-function mm-text-html-renderer))
+                (entry (assq func mm-text-html-washer-alist)))
+           (if entry
+               (setq func (cdr entry)))
+           (cond
+            ((gnus-functionp func)
+             (funcall func))
+            (t
+             (apply (car func) (cdr func))))))))))
+
+(defun gnus-article-wash-html-with-w3 ()
+  "Wash the current buffer with w3."
+  (mm-setup-w3)
+  (let ((w3-strict-width (window-width))
+       (url-standalone-mode t)
+       (url-gateway-unplugged t)
+       (w3-honor-stylesheets nil))
+    (condition-case ()
+       (w3-region (point-min) (point-max))
+      (error))))
+
+(defun gnus-article-wash-html-with-w3m ()
+  "Wash the current buffer with emacs-w3m."
+  (mm-setup-w3m)
+  (save-restriction
+    (narrow-to-region (point) (point-max))
+    (let ((w3m-safe-url-regexp (if mm-inline-text-html-with-images
+                                  nil
+                                "\\`cid:"))
+         (w3m-display-inline-images mm-inline-text-html-with-images)
+         w3m-force-redisplay)
+      (w3m-region (point-min) (point-max)))
+    (when mm-inline-text-html-with-w3m-keymap
+      (add-text-properties
+       (point-min) (point-max)
+       (append '(mm-inline-text-html-with-w3m t)
+              (gnus-local-map-property mm-w3m-mode-map))))))
  
  (defun article-hide-list-identifiers ()
    "Remove list identifies from the Subject header.
  
  (defun article-hide-list-identifiers ()
    "Remove list identifies from the Subject header.
@@ -2028,7 +2395,7 @@ The `gnus-list-identifiers' variable specifies what to do."
         (article-goto-body)
         ;; Hide the "header".
         (when (re-search-forward "^-----BEGIN PGP SIGNED MESSAGE-----\n" nil t)
         (article-goto-body)
         ;; Hide the "header".
         (when (re-search-forward "^-----BEGIN PGP SIGNED MESSAGE-----\n" nil t)
-         (push 'pgp gnus-article-wash-types)
+         (gnus-add-wash-type 'pgp)
           (delete-region (match-beginning 0) (match-end 0))
           ;; Remove armor headers (rfc2440 6.2)
           (delete-region (point) (or (re-search-forward "^[ \t]*\n" nil t)
           (delete-region (match-beginning 0) (match-end 0))
           ;; Remove armor headers (rfc2440 6.2)
           (delete-region (point) (or (re-search-forward "^[ \t]*\n" nil t)
@@ -2068,7 +2435,7 @@ always hide."
                     "\n-----BEGIN PRIVACY-ENHANCED MESSAGE-----\n"
                     nil t)
                    (setq end (1+ (match-beginning 0))))
                     "\n-----BEGIN PRIVACY-ENHANCED MESSAGE-----\n"
                     nil t)
                    (setq end (1+ (match-beginning 0))))
-         (push 'pem gnus-article-wash-types)
+         (gnus-add-wash-type 'pem)
           (gnus-article-hide-text-type
            end
            (if (search-forward "\n\n" nil t)
           (gnus-article-hide-text-type
            end
            (if (search-forward "\n\n" nil t)
@@ -2149,7 +2516,8 @@ always hide."
                (1+ button)
                (next-single-property-change (1+ button) 'mime-view-entity
                                             nil (point-max))
                (1+ button)
                (next-single-property-change (1+ button) 'mime-view-entity
                                             nil (point-max))
-              'signature))))))))
+              'signature)))))))
+  (gnus-set-mode-line 'article))
  
  (defun article-strip-headers-in-body ()
    "Strip offensive headers from bodies."
  
  (defun article-strip-headers-in-body ()
    "Strip offensive headers from bodies."
@@ -2301,7 +2669,7 @@ Put point at the beginning of the signature separator."
  
  (defun gnus-article-check-hidden-text (type arg)
    "Return nil if hiding is necessary.
  
  (defun gnus-article-check-hidden-text (type arg)
    "Return nil if hiding is necessary.
-Arg can be nil or a number.  Nil and positive means hide, negative
+Arg can be nil or a number.  nil and positive means hide, negative
  means show, 0 means toggle."
    (save-excursion
      (save-restriction
  means show, 0 means toggle."
    (save-excursion
      (save-restriction
@@ -2341,7 +2709,8 @@ Originally it is hide instead of DUMMY."
       'article-type type
       (point-min) (point-max)
       (cons 'article-type (cons type
       'article-type type
       (point-min) (point-max)
       (cons 'article-type (cons type
-                              gnus-hidden-properties)))))
+                              gnus-hidden-properties)))
+    (gnus-delete-wash-type type)))
  
  (defconst article-time-units
    `((year . ,(* 365.25 24 60 60))
  
  (defconst article-time-units
    `((year . ,(* 365.25 24 60 60))
@@ -2608,15 +2977,15 @@ This format is defined by the `gnus-article-time-format' variable."
    (interactive (list t))
    (article-date-ut 'iso8601 highlight))
  
    (interactive (list t))
    (article-date-ut 'iso8601 highlight))
  
-(defun article-show-all ()
-  "Show all hidden text in the article buffer."
-  (interactive)
-  (save-excursion
-    (widen)
-    (let ((buffer-read-only nil))
-      (gnus-article-unhide-text (point-min) (point-max))
-      (gnus-remove-text-with-property 'gnus-prev)
-      (gnus-remove-text-with-property 'gnus-next))))
+;; (defun article-show-all ()
+;;   "Show all hidden text in the article buffer."
+;;   (interactive)
+;;   (save-excursion
+;;     (widen)
+;;     (let ((buffer-read-only nil))
+;;       (gnus-article-unhide-text (point-min) (point-max))
+;;       (gnus-remove-text-with-property 'gnus-prev)
+;;       (gnus-remove-text-with-property 'gnus-next))))
  
  (defun article-show-all-headers ()
    "Show all hidden headers in the article buffer."
  
  (defun article-show-all-headers ()
    "Show all hidden headers in the article buffer."
@@ -2664,13 +3033,13 @@ This format is defined by the `gnus-article-time-format' variable."
                 face (nth 3 elem))
           (while (re-search-forward regexp nil t)
             (when (and (match-beginning visible) (match-beginning invisible))
                 face (nth 3 elem))
           (while (re-search-forward regexp nil t)
             (when (and (match-beginning visible) (match-beginning invisible))
-             (push 'emphasis gnus-article-wash-types)
               (gnus-article-hide-text
                (match-beginning invisible) (match-end invisible) props)
               (gnus-article-unhide-text-type
                (match-beginning visible) (match-end visible) 'emphasis)
               (gnus-article-hide-text
                (match-beginning invisible) (match-end invisible) props)
               (gnus-article-unhide-text-type
                (match-beginning visible) (match-end visible) 'emphasis)
-             (gnus-put-text-property-excluding-newlines
+             (gnus-put-overlay-excluding-newlines
                (match-beginning visible) (match-end visible) 'face face)
                (match-beginning visible) (match-end visible) 'face face)
+             (gnus-add-wash-type 'emphasis)
               (goto-char (match-end invisible)))))))))
  
  (defun gnus-article-setup-highlight-words (&optional highlight-words)
               (goto-char (match-end invisible)))))))))
  
  (defun gnus-article-setup-highlight-words (&optional highlight-words)
@@ -2872,7 +3241,7 @@ Directory to save to is default to `gnus-article-save-directory'."
    filename)
  
  (defun gnus-summary-write-to-file (&optional filename)
    filename)
  
  (defun gnus-summary-write-to-file (&optional filename)
-  "Write this article to a file.
+  "Write this article to a file, overwriting it if the file exists.
  Optional argument FILENAME specifies file name.
  The directory to save in defaults to `gnus-article-save-directory'."
    (gnus-summary-save-in-file nil t))
  Optional argument FILENAME specifies file name.
  The directory to save in defaults to `gnus-article-save-directory'."
    (gnus-summary-save-in-file nil t))
@@ -2921,6 +3290,13 @@ The directory to save in defaults to `gnus-article-save-directory'."
        (shell-command-on-region (point-min) (point-max) command nil)))
    (setq gnus-last-shell-command command))
  
        (shell-command-on-region (point-min) (point-max) command nil)))
    (setq gnus-last-shell-command command))
  
+(defun gnus-summary-pipe-to-muttprint (&optional command)
+  "Pipe this article to muttprint."
+  (setq command (read-string
+                "Print using command: " gnus-summary-muttprint-program
+                nil gnus-summary-muttprint-program))
+  (gnus-summary-save-in-pipe command))
+
  ;;; Article file names when saving.
  
  (defun gnus-capitalize-newsgroup (newsgroup)
  ;;; Article file names when saving.
  
  (defun gnus-capitalize-newsgroup (newsgroup)
@@ -2998,7 +3374,7 @@ If variable `gnus-use-long-file-name' is non-nil, it is
                    mml2015-use
                    (mml2015-clear-verify-function))
           (with-temp-buffer
                    mml2015-use
                    (mml2015-clear-verify-function))
           (with-temp-buffer
-           (insert-buffer gnus-original-article-buffer)
+           (insert-buffer-substring gnus-original-article-buffer)
             (setq items (split-string sig))
             (message-narrow-to-head)
             (let ((inhibit-point-motion-hooks t)
             (setq items (split-string sig))
             (message-narrow-to-head)
             (let ((inhibit-point-motion-hooks t)
@@ -3060,6 +3436,27 @@ If variable `gnus-use-long-file-name' is non-nil, it is
                   (put-text-property (match-end 0) (point-max)
                                      'face eface)))))))))
  
                   (put-text-property (match-end 0) (point-max)
                                      'face eface)))))))))
  
+(defun article-verify-cancel-lock ()
+  "Verify Cancel-Lock header."
+  (interactive)
+  (if (gnus-buffer-live-p gnus-original-article-buffer)
+      (canlock-verify gnus-original-article-buffer)))
+
+(defun article-monafy ()
+  "Display body part with mona font."
+  (interactive)
+  (unless (if (featurep 'xemacs)
+             (find-face 'gnus-mona-face)
+           (facep 'gnus-mona-face))
+    (require 'navi2ch-mona)
+    (set-face-font (make-face 'gnus-mona-face) navi2ch-mona-font))
+  (save-excursion
+    (let ((buffer-read-only nil))
+      (article-goto-body)
+      (gnus-overlay-put
+       (gnus-make-overlay (point) (point-max))
+       'face 'gnus-mona-face))))
+
  (eval-and-compile
    (mapcar
     (lambda (func)
  (eval-and-compile
    (mapcar
     (lambda (func)
@@ -3070,17 +3467,19 @@ If variable `gnus-use-long-file-name' is non-nil, it is
          (setq afunc func
                gfunc (intern (format "gnus-%s" func))))
         (defalias gfunc
          (setq afunc func
                gfunc (intern (format "gnus-%s" func))))
         (defalias gfunc
-        (if (fboundp afunc)
-            `(lambda (&optional interactive &rest args)
-               ,(documentation afunc t)
-               (interactive (list t))
-               (save-excursion
-                 (set-buffer gnus-article-buffer)
-                 (if interactive
-                     (call-interactively ',afunc)
-                   (apply ',afunc args))))))))
+        (when (fboundp afunc)
+          `(lambda (&optional interactive &rest args)
+             ,(documentation afunc t)
+             (interactive (list t))
+             (save-excursion
+               (set-buffer gnus-article-buffer)
+               (if interactive
+                   (call-interactively ',afunc)
+                 (apply ',afunc args))))))))
     '(article-hide-headers
       article-verify-x-pgp-sig
     '(article-hide-headers
       article-verify-x-pgp-sig
+     article-verify-cancel-lock
+     article-monafy
       article-hide-boring-headers
       article-toggle-headers
       article-treat-overstrike
       article-hide-boring-headers
       article-toggle-headers
       article-treat-overstrike
@@ -3093,6 +3492,7 @@ If variable `gnus-use-long-file-name' is non-nil, it is
       article-de-base64-unreadable
       article-decode-HZ
       article-wash-html
       article-de-base64-unreadable
       article-decode-HZ
       article-wash-html
+     article-unsplit-urls
       article-hide-list-identifiers
       article-hide-pgp
       article-strip-banner
       article-hide-list-identifiers
       article-hide-pgp
       article-strip-banner
@@ -3121,7 +3521,8 @@ If variable `gnus-use-long-file-name' is non-nil, it is
       article-treat-dumbquotes
       article-normalize-headers
       (article-show-all-headers . gnus-article-show-all-headers)
       article-treat-dumbquotes
       article-normalize-headers
       (article-show-all-headers . gnus-article-show-all-headers)
-     (article-show-all . gnus-article-show-all))))
+;;      (article-show-all . gnus-article-show-all)
+     )))
  \f
  ;;;
  ;;; Gnus article mode
  \f
  ;;;
  ;;; Gnus article mode
@@ -3144,6 +3545,8 @@ If variable `gnus-use-long-file-name' is non-nil, it is
    ">" end-of-buffer
    "\C-c\C-i" gnus-info-find-node
    "\C-c\C-b" gnus-bug
    ">" end-of-buffer
    "\C-c\C-i" gnus-info-find-node
    "\C-c\C-b" gnus-bug
+  "R" gnus-article-reply-with-original
+  "F" gnus-article-followup-with-original
    "\C-hk" gnus-article-describe-key
    "\C-hc" gnus-article-describe-key-briefly
  
    "\C-hk" gnus-article-describe-key
    "\C-hc" gnus-article-describe-key-briefly
  
@@ -3194,6 +3597,8 @@ If variable `gnus-use-long-file-name' is non-nil, it is
         ["Treat overstrike" gnus-article-treat-overstrike t]
         ["Remove carriage return" gnus-article-remove-cr t]
         ["Remove leading whitespace" gnus-article-remove-leading-whitespace t]
         ["Treat overstrike" gnus-article-treat-overstrike t]
         ["Remove carriage return" gnus-article-remove-cr t]
         ["Remove leading whitespace" gnus-article-remove-leading-whitespace t]
+       ["Treat html" gnus-article-wash-html t]
+       ["Remove newlines from within URLs" gnus-article-unsplit-urls t]
         ["Decode HZ" gnus-article-decode-HZ t]))
  
      ;; Note "Commands" menu is defined in gnus-sum.el for consistency
         ["Decode HZ" gnus-article-decode-HZ t]))
  
      ;; Note "Commands" menu is defined in gnus-sum.el for consistency
@@ -3239,6 +3644,7 @@ commands:
    (make-local-variable 'gnus-article-decoded-p)
    (make-local-variable 'gnus-article-mime-handle-alist)
    (make-local-variable 'gnus-article-wash-types)
    (make-local-variable 'gnus-article-decoded-p)
    (make-local-variable 'gnus-article-mime-handle-alist)
    (make-local-variable 'gnus-article-wash-types)
+  (make-local-variable 'gnus-article-image-alist)
    (make-local-variable 'gnus-article-charset)
    (make-local-variable 'gnus-article-ignored-charsets)
    (gnus-set-default-directory)
    (make-local-variable 'gnus-article-charset)
    (make-local-variable 'gnus-article-ignored-charsets)
    (gnus-set-default-directory)
@@ -3269,7 +3675,7 @@ commands:
      ;; Init original article buffer.
      (save-excursion
        (set-buffer (gnus-get-buffer-create gnus-original-article-buffer))
      ;; Init original article buffer.
      (save-excursion
        (set-buffer (gnus-get-buffer-create gnus-original-article-buffer))
-      (set-buffer-multibyte nil)
+      (set-buffer-multibyte t)
        (setq major-mode 'gnus-original-article-mode)
        (make-local-variable 'gnus-original-article))
      (if (get-buffer name)
        (setq major-mode 'gnus-original-article-mode)
        (make-local-variable 'gnus-original-article))
      (if (get-buffer name)
@@ -3291,7 +3697,7 @@ commands:
  ;; from the head of the article.
  (defun gnus-article-set-window-start (&optional line)
    (set-window-start
  ;; from the head of the article.
  (defun gnus-article-set-window-start (&optional line)
    (set-window-start
-   (get-buffer-window gnus-article-buffer t)
+   (gnus-get-buffer-window gnus-article-buffer t)
     (save-excursion
       (set-buffer gnus-article-buffer)
       (goto-char (point-min))
     (save-excursion
       (set-buffer gnus-article-buffer)
       (goto-char (point-min))
@@ -3467,6 +3873,8 @@ If ALL-HEADERS is non-nil, no headers are hidden."
                    gnus-article-mime-handle-alist))
               (gnus-set-mode-line 'article))
             (article-goto-body)
                    gnus-article-mime-handle-alist))
               (gnus-set-mode-line 'article))
             (article-goto-body)
+           (unless (bobp)
+             (forward-line -1))
             (set-window-point (get-buffer-window (current-buffer)) (point))
             (gnus-configure-windows 'article)
             t))))))
             (set-window-point (get-buffer-window (current-buffer)) (point))
             (gnus-configure-windows 'article)
             t))))))
@@ -3547,7 +3955,8 @@ If ALL-HEADERS is non-nil, no headers are hidden."
        (gnus-article-mode))
      (setq buffer-read-only nil
           gnus-button-marker-list nil
        (gnus-article-mode))
      (setq buffer-read-only nil
           gnus-button-marker-list nil
-         gnus-article-wash-types nil)
+         gnus-article-wash-types nil
+         gnus-article-image-alist nil)
      (save-restriction
        (widen)
        (static-if (featurep 'xemacs)
      (save-restriction
        (widen)
        (static-if (featurep 'xemacs)
@@ -3603,14 +4012,19 @@ value of the variable `gnus-show-mime' is non-nil."
  ;;;
  
  (defvar gnus-mime-button-line-format "%{%([%p. %d%T]%)%}%e\n"
  ;;;
  
  (defvar gnus-mime-button-line-format "%{%([%p. %d%T]%)%}%e\n"
-  "The following specs can be used:
+  "Format of the MIME buttons.
+
+Valid specifiers include:
  %t  The MIME type
  %T  MIME type, along with additional info
  %n  The `name' parameter
  %d  The description, if any
  %l  The length of the encoded part
  %p  The part identifier number
  %t  The MIME type
  %T  MIME type, along with additional info
  %n  The `name' parameter
  %d  The description, if any
  %l  The length of the encoded part
  %p  The part identifier number
-%e  Dots if the part isn't displayed")
+%e  Dots if the part isn't displayed
+
+General format specifiers can also be used.  See
+(gnus)Formatting Variables.")
  
  (defvar gnus-mime-button-line-format-alist
    '((?t gnus-tmp-type ?s)
  
  (defvar gnus-mime-button-line-format-alist
    '((?t gnus-tmp-type ?s)
@@ -3630,8 +4044,9 @@ value of the variable `gnus-show-mime' is non-nil."
      (gnus-mime-save-part-and-strip "\C-o" "Save and Strip")
      (gnus-mime-copy-part "c" "View As Text, In Other Buffer")
      (gnus-mime-inline-part "i" "View As Text, In This Buffer")
      (gnus-mime-save-part-and-strip "\C-o" "Save and Strip")
      (gnus-mime-copy-part "c" "View As Text, In Other Buffer")
      (gnus-mime-inline-part "i" "View As Text, In This Buffer")
-    (gnus-mime-internalize-part "E" "View Internally")
-    (gnus-mime-externalize-part "e" "View Externally")
+    (gnus-mime-view-part-internally "E" "View Internally")
+    (gnus-mime-view-part-externally "e" "View Externally")
+    (gnus-mime-print-part "p" "Print")
      (gnus-mime-pipe-part "|" "Pipe To Command...")
      (gnus-mime-action-on-part "." "Take action on the part")))
  
      (gnus-mime-pipe-part "|" "Pipe To Command...")
      (gnus-mime-action-on-part "." "Take action on the part")))
  
@@ -3689,15 +4104,16 @@ value of the variable `gnus-show-mime' is non-nil."
         (goto-char (point-min))
         (or (search-forward "\n\n") (goto-char (point-max)))
         (let (buffer-read-only)
         (goto-char (point-min))
         (or (search-forward "\n\n") (goto-char (point-max)))
         (let (buffer-read-only)
-         (delete-region (point) (point-max)))
-       (mm-display-parts handles)))))
+         (delete-region (point) (point-max))
+         (mm-display-parts handles))))))
  
  (defun gnus-mime-save-part-and-strip ()
    "Save the MIME part under point then replace it with an external body."
    (interactive)
    (gnus-article-check-buffer)
    (let* ((data (get-text-property (point) 'gnus-data))
  
  (defun gnus-mime-save-part-and-strip ()
    "Save the MIME part under point then replace it with an external body."
    (interactive)
    (gnus-article-check-buffer)
    (let* ((data (get-text-property (point) 'gnus-data))
-        file param)
+        file param
+        (handles gnus-article-mime-handles))
      (if (mm-multiple-handles gnus-article-mime-handles)
         (error "This function is not implemented"))
      (setq file (and data (mm-save-part data)))
      (if (mm-multiple-handles gnus-article-mime-handles)
         (error "This function is not implemented"))
      (setq file (and data (mm-save-part data)))
@@ -3728,7 +4144,7 @@ value of the variable `gnus-show-mime' is non-nil."
                 (mbl mml-buffer-list))
             (setq mml-buffer-list nil)
             (insert-buffer gnus-original-article-buffer)
                 (mbl mml-buffer-list))
             (setq mml-buffer-list nil)
             (insert-buffer gnus-original-article-buffer)
-           (mime-to-mml gnus-article-mime-handles)
+           (mime-to-mml ',handles)
             (setq gnus-article-mime-handles nil)
             (let ((mbl1 mml-buffer-list))
               (setq mml-buffer-list mbl)
             (setq gnus-article-mime-handles nil)
             (let ((mbl1 mml-buffer-list))
               (setq mml-buffer-list mbl)
@@ -3809,14 +4225,14 @@ value of the variable `gnus-show-mime' is non-nil."
                             (mm-handle-undisplayer handle)
                             (mm-handle-disposition handle)
                             (mm-handle-description handle)
                             (mm-handle-undisplayer handle)
                             (mm-handle-disposition handle)
                             (mm-handle-description handle)
-                           (mm-handle-cache handle)
+                           nil
                             (mm-handle-id handle)))
        (setq gnus-article-mime-handles
             (mm-merge-handles gnus-article-mime-handles handle))
        (gnus-mm-display-part handle))))
  
  (defun gnus-mime-copy-part (&optional handle)
                             (mm-handle-id handle)))
        (setq gnus-article-mime-handles
             (mm-merge-handles gnus-article-mime-handles handle))
        (gnus-mm-display-part handle))))
  
  (defun gnus-mime-copy-part (&optional handle)
-  "Put the the MIME part under point into a new buffer."
+  "Put the MIME part under point into a new buffer."
    (interactive)
    (gnus-article-check-buffer)
    (let* ((handle (or handle (get-text-property (point) 'gnus-data)))
    (interactive)
    (gnus-article-check-buffer)
    (let* ((handle (or handle (get-text-property (point) 'gnus-data)))
@@ -3840,6 +4256,32 @@ value of the variable `gnus-show-mime' is non-nil."
         (setq buffer-file-name nil))
        (goto-char (point-min)))))
  
         (setq buffer-file-name nil))
        (goto-char (point-min)))))
  
+(defun gnus-mime-print-part (&optional handle filename)
+  "Print the MIME part under point."
+  (interactive (list nil (ps-print-preprint current-prefix-arg)))
+  (gnus-article-check-buffer)
+  (let* ((handle (or handle (get-text-property (point) 'gnus-data)))
+        (contents (and handle (mm-get-part handle)))
+        (file (mm-make-temp-file (expand-file-name "mm." mm-tmp-directory)))
+        (printer (mailcap-mime-info (mm-handle-type handle) "print")))
+    (when contents
+       (if printer
+           (unwind-protect
+               (progn
+                 (with-temp-file file
+                   (insert contents))
+                 (call-process shell-file-name nil
+                               (generate-new-buffer " *mm*")
+                               nil
+                               shell-command-switch
+                               (mm-mailcap-command
+                                printer file (mm-handle-type handle))))
+             (delete-file file))
+         (with-temp-buffer
+           (insert contents)
+           (gnus-print-buffer))
+         (ps-despool filename)))))
+
  (defun gnus-mime-inline-part (&optional handle arg)
    "Insert the MIME part under point into the current buffer."
    (interactive (list nil current-prefix-arg))
  (defun gnus-mime-inline-part (&optional handle arg)
    "Insert the MIME part under point into the current buffer."
    (interactive (list nil current-prefix-arg))
@@ -3893,7 +4335,7 @@ specified charset."
             (gnus-newsgroup-ignored-charsets 'gnus-all))
         (gnus-article-press-button)))))
  
             (gnus-newsgroup-ignored-charsets 'gnus-all))
         (gnus-article-press-button)))))
  
-(defun gnus-mime-externalize-part (&optional handle)
+(defun gnus-mime-view-part-externally (&optional handle)
    "View the MIME part under point with an external viewer."
    (interactive)
    (gnus-article-check-buffer)
    "View the MIME part under point with an external viewer."
    (interactive)
    (gnus-article-check-buffer)
@@ -3909,7 +4351,7 @@ specified charset."
           (mm-remove-part handle)
         (mm-display-part handle)))))
  
           (mm-remove-part handle)
         (mm-display-part handle)))))
  
-(defun gnus-mime-internalize-part (&optional handle)
+(defun gnus-mime-view-part-internally (&optional handle)
    "View the MIME part under point with an internal viewer.
  If no internal viewer is available, use an external viewer."
    (interactive)
    "View the MIME part under point with an internal viewer.
  If no internal viewer is available, use an external viewer."
    (interactive)
@@ -3969,10 +4411,10 @@ If no internal viewer is available, use an external viewer."
    (interactive "p")
    (gnus-article-part-wrapper n 'gnus-mime-view-part-as-charset))
  
    (interactive "p")
    (gnus-article-part-wrapper n 'gnus-mime-view-part-as-charset))
  
-(defun gnus-article-externalize-part (n)
+(defun gnus-article-view-part-externally (n)
    "View MIME part N externally, which is the numerical prefix."
    (interactive "p")
    "View MIME part N externally, which is the numerical prefix."
    (interactive "p")
-  (gnus-article-part-wrapper n 'gnus-mime-externalize-part))
+  (gnus-article-part-wrapper n 'gnus-mime-view-part-externally))
  
  (defun gnus-article-inline-part (n)
    "Inline MIME part N, which is the numerical prefix."
  
  (defun gnus-article-inline-part (n)
    "Inline MIME part N, which is the numerical prefix."
@@ -4030,11 +4472,14 @@ If no internal viewer is available, use an external viewer."
         (let ((window (selected-window))
               (mail-parse-charset gnus-newsgroup-charset)
               (mail-parse-ignored-charsets
         (let ((window (selected-window))
               (mail-parse-charset gnus-newsgroup-charset)
               (mail-parse-ignored-charsets
-              (save-excursion (set-buffer gnus-summary-buffer)
-                              gnus-newsgroup-ignored-charsets)))
+              (if (gnus-buffer-live-p gnus-summary-buffer)
+                  (save-excursion
+                    (set-buffer gnus-summary-buffer)
+                    gnus-newsgroup-ignored-charsets)
+                nil)))
           (save-excursion
             (unwind-protect
           (save-excursion
             (unwind-protect
-               (let ((win (get-buffer-window (current-buffer) t))
+               (let ((win (gnus-get-buffer-window (current-buffer) t))
                       (beg (point)))
                   (when win
                     (select-window win))
                       (beg (point)))
                   (when win
                     (select-window win))
@@ -4044,7 +4489,8 @@ If no internal viewer is available, use an external viewer."
                       ;; This will remove the part.
                       (mm-display-part handle)
                     (save-restriction
                       ;; This will remove the part.
                       (mm-display-part handle)
                     (save-restriction
-                     (narrow-to-region (point) (1+ (point)))
+                     (narrow-to-region (point)
+                                       (if (eobp) (point) (1+ (point))))
                       (mm-display-part handle)
                       ;; We narrow to the part itself and
                       ;; then call the treatment functions.
                       (mm-display-part handle)
                       ;; We narrow to the part itself and
                       ;; then call the treatment functions.
@@ -4071,12 +4517,9 @@ If no internal viewer is available, use an external viewer."
  
  (defun gnus-insert-mime-button (handle gnus-tmp-id &optional displayed)
    (let ((gnus-tmp-name
  
  (defun gnus-insert-mime-button (handle gnus-tmp-id &optional displayed)
    (let ((gnus-tmp-name
-        (or (mail-content-type-get (mm-handle-type handle)
-                                   'name)
-            (mail-content-type-get (mm-handle-disposition handle)
-                                   'filename)
-            (mail-content-type-get (mm-handle-type handle)
-                                   'url)
+        (or (mail-content-type-get (mm-handle-type handle) 'name)
+            (mail-content-type-get (mm-handle-disposition handle) 'filename)
+            (mail-content-type-get (mm-handle-type handle) 'url)
              ""))
         (gnus-tmp-type (mm-handle-media-type handle))
         (gnus-tmp-description
              ""))
         (gnus-tmp-type (mm-handle-media-type handle))
         (gnus-tmp-description
@@ -4094,21 +4537,18 @@ If no internal viewer is available, use an external viewer."
      (setq gnus-tmp-type-long (concat gnus-tmp-type
                                      (and (not (equal gnus-tmp-name ""))
                                           (concat "; " gnus-tmp-name))))
      (setq gnus-tmp-type-long (concat gnus-tmp-type
                                      (and (not (equal gnus-tmp-name ""))
                                           (concat "; " gnus-tmp-name))))
-    (or (equal gnus-tmp-description "")
-       (setq gnus-tmp-type-long (concat " --- " gnus-tmp-type-long)))
+    (unless (equal gnus-tmp-description "")
+      (setq gnus-tmp-type-long (concat " --- " gnus-tmp-type-long)))
      (unless (bolp)
        (insert "\n"))
      (setq b (point))
      (gnus-eval-format
       gnus-mime-button-line-format gnus-mime-button-line-format-alist
      (unless (bolp)
        (insert "\n"))
      (setq b (point))
      (gnus-eval-format
       gnus-mime-button-line-format gnus-mime-button-line-format-alist
-     `(keymap ,gnus-mime-button-map
-             ,@(if (>= (string-to-number emacs-version) 21)
-                   nil
-                 (list 'local-map gnus-mime-button-map))
-             gnus-callback gnus-mm-display-part
-             gnus-part ,gnus-tmp-id
-             article-type annotation
-             gnus-data ,handle))
+     `(,@(gnus-local-map-property gnus-mime-button-map)
+        gnus-callback gnus-mm-display-part
+        gnus-part ,gnus-tmp-id
+        article-type annotation
+        gnus-data ,handle))
      (setq e (point))
      (widget-convert-button
       'link b e
      (setq e (point))
      (widget-convert-button
       'link b e
@@ -4152,7 +4592,9 @@ If no internal viewer is available, use an external viewer."
           ;; We have to do this since selecting the window
           ;; may change the point.  So we set the window point.
           (set-window-point window point)))
           ;; We have to do this since selecting the window
           ;; may change the point.  So we set the window point.
           (set-window-point window point)))
-      (let* ((handles (or ihandles (mm-dissect-buffer) (mm-uu-dissect)))
+      (let* ((handles (or ihandles (mm-dissect-buffer
+                                   nil gnus-article-loose-mime)
+                         (mm-uu-dissect)))
              buffer-read-only handle name type b e display)
         (when (and (not ihandles)
                    (not gnus-displaying-mime))
              buffer-read-only handle name type b e display)
         (when (and (not ihandles)
                    (not gnus-displaying-mime))
@@ -4222,12 +4664,10 @@ If no internal viewer is available, use an external viewer."
      ;;;!!! No, w3 can display everything just fine.
      (gnus-mime-display-part (cadr handle)))
     ((equal (car handle) "multipart/signed")
      ;;;!!! No, w3 can display everything just fine.
      (gnus-mime-display-part (cadr handle)))
     ((equal (car handle) "multipart/signed")
-    (or (memq 'signed gnus-article-wash-types)
-       (push 'signed gnus-article-wash-types))
+    (gnus-add-wash-type 'signed)
      (gnus-mime-display-security handle))
     ((equal (car handle) "multipart/encrypted")
      (gnus-mime-display-security handle))
     ((equal (car handle) "multipart/encrypted")
-    (or (memq 'encrypted gnus-article-wash-types)
-       (push 'encrypted gnus-article-wash-types))
+    (gnus-add-wash-type 'encrypted)
      (gnus-mime-display-security handle))
     ;; Other multiparts are handled like multipart/mixed.
     (t
      (gnus-mime-display-security handle))
     ;; Other multiparts are handled like multipart/mixed.
     (t
@@ -4311,11 +4751,16 @@ If no internal viewer is available, use an external viewer."
  (defun gnus-unbuttonized-mime-type-p (type)
    "Say whether TYPE is to be unbuttonized."
    (unless gnus-inhibit-mime-unbuttonizing
  (defun gnus-unbuttonized-mime-type-p (type)
    "Say whether TYPE is to be unbuttonized."
    (unless gnus-inhibit-mime-unbuttonizing
-    (catch 'found
-      (let ((types gnus-unbuttonized-mime-types))
-       (while types
-         (when (string-match (pop types) type)
-           (throw 'found t)))))))
+    (when (catch 'found
+           (let ((types gnus-unbuttonized-mime-types))
+             (while types
+               (when (string-match (pop types) type)
+                 (throw 'found t)))))
+      (not (catch 'found
+            (let ((types gnus-buttonized-mime-types))
+              (while types
+                (when (string-match (pop types) type)
+                  (throw 'found t)))))))))
  
  (defun gnus-article-insert-newline ()
    "Insert a newline, but mark it as undeletable."
  
  (defun gnus-article-insert-newline ()
    "Insert a newline, but mark it as undeletable."
@@ -4358,12 +4803,9 @@ If no internal viewer is available, use an external viewer."
                        ',gnus-article-mime-handle-alist))
                (gnus-mime-display-alternative
                 ',ihandles ',not-pref ',begend ,id))
                        ',gnus-article-mime-handle-alist))
                (gnus-mime-display-alternative
                 ',ihandles ',not-pref ',begend ,id))
-            ,@(if (>= (string-to-number emacs-version) 21)
-                  nil ;; XEmacs doesn't care
-                (list 'local-map gnus-mime-button-map))
+            ,@(gnus-local-map-property gnus-mime-button-map)
              ,gnus-mouse-face-prop ,gnus-article-mouse-face
              face ,gnus-article-button-face
              ,gnus-mouse-face-prop ,gnus-article-mouse-face
              face ,gnus-article-button-face
-            keymap ,gnus-mime-button-map
              gnus-part ,id
              gnus-data ,handle))
           (widget-convert-button 'link from (point)
              gnus-part ,id
              gnus-data ,handle))
           (widget-convert-button 'link from (point)
@@ -4385,12 +4827,9 @@ If no internal viewer is available, use an external viewer."
                          ',gnus-article-mime-handle-alist))
                  (gnus-mime-display-alternative
                   ',ihandles ',handle ',begend ,id))
                          ',gnus-article-mime-handle-alist))
                  (gnus-mime-display-alternative
                   ',ihandles ',handle ',begend ,id))
-              ,@(if (>= (string-to-number emacs-version) 21)
-                    nil ;; XEmacs doesn't care
-                  (list 'local-map gnus-mime-button-map))
+              ,@(gnus-local-map-property gnus-mime-button-map)
                ,gnus-mouse-face-prop ,gnus-article-mouse-face
                face ,gnus-article-button-face
                ,gnus-mouse-face-prop ,gnus-article-mouse-face
                face ,gnus-article-button-face
-              keymap ,gnus-mime-button-map
                gnus-part ,id
                gnus-data ,handle))
             (widget-convert-button 'link from (point)
                gnus-part ,id
                gnus-data ,handle))
             (widget-convert-button 'link from (point)
@@ -4419,6 +4858,41 @@ If no internal viewer is available, use an external viewer."
      (when ibegend
        (goto-char point))))
  
      (when ibegend
        (goto-char point))))
  
+(defconst gnus-article-wash-status-strings
+  (let ((alist '((cite "c" "Possible hidden citation text"
+                      " " "All citation text visible")
+                (headers "h" "Hidden headers"
+                         " " "All headers visible.")
+                (pgp "p" "Encrypted or signed message status hidden"
+                     " " "No hidden encryption nor digital signature status")
+                (signature "s" "Signature has been hidden"
+                           " " "Signature is visible")
+                (overstrike "o" "Overstrike (^H) characters applied"
+                            " " "No overstrike characters applied")
+                (gnus-show-mime "m" "Mime processing is activated"
+                                " " "Mime processing is not activated")
+                (emphasis "e" "/*_Emphasis_*/ characters applied"
+                          " " "No /*_emphasis_*/ characters applied")))
+       result)
+    (dolist (entry alist result)
+      (let ((key (nth 0 entry))
+           (on (copy-sequence (nth 1 entry)))
+           (on-help (nth 2 entry))
+           (off (copy-sequence (nth 3 entry)))
+           (off-help (nth 4 entry)))
+       (put-text-property 0 1 'help-echo on-help on)
+       (put-text-property 0 1 'help-echo off-help off)
+       (push (list key on off) result))))
+  "Alist of strings describing wash status in the mode line.
+Each entry has the form (KEY ON OF), where the KEY is a symbol
+representing the particular washing function, ON is the string to use
+in the article mode line when the washing function is active, and OFF
+is the string to use when it is inactive.")
+
+(defun gnus-article-wash-status-entry (key value)
+  (let ((entry (assoc key gnus-article-wash-status-strings)))
+    (if value (nth 1 entry) (nth 2 entry))))
+
  (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
@@ -4433,14 +4907,38 @@ If no internal viewer is available, use an external viewer."
           (signature (memq 'signature gnus-article-wash-types))
           (overstrike (memq 'overstrike gnus-article-wash-types))
           (emphasis (memq 'emphasis gnus-article-wash-types)))
           (signature (memq 'signature gnus-article-wash-types))
           (overstrike (memq 'overstrike gnus-article-wash-types))
           (emphasis (memq 'emphasis gnus-article-wash-types)))
-      (format "%c%c%c%c%c%c%c"
-             (if cite ?c ? )
-             (if (or headers boring) ?h ? )
-             (if (or pgp pem signed encrypted) ?p ? )
-             (if signature ?s ? )
-             (if overstrike ?o ? )
-             (if gnus-show-mime ?m ? )
-             (if emphasis ?e ? )))))
+      (concat
+       (gnus-article-wash-status-entry 'cite cite)
+       (gnus-article-wash-status-entry 'headers (or headers boring))
+       (gnus-article-wash-status-entry 'pgp (or pgp pem signed encrypted))
+       (gnus-article-wash-status-entry 'signature signature)
+       (gnus-article-wash-status-entry 'overstrike overstrike)
+       (gnus-article-wash-status-entry 'gnus-show-mime gnus-show-mime)
+       (gnus-article-wash-status-entry 'emphasis emphasis)))))
+
+(defun gnus-add-wash-type (type)
+  "Add a washing of TYPE to the current status."
+  (add-to-list 'gnus-article-wash-types type))
+
+(defun gnus-delete-wash-type (type)
+  "Add a washing of TYPE to the current status."
+  (setq gnus-article-wash-types (delq type gnus-article-wash-types)))
+
+(defun gnus-add-image (category image)
+  "Add IMAGE of CATEGORY to the list of displayed images."
+  (let ((entry (assq category gnus-article-image-alist)))
+    (unless entry
+      (setq entry (list category))
+      (push entry gnus-article-image-alist))
+    (nconc entry (list image))))
+
+(defun gnus-delete-images (category)
+  "Delete all images in CATEGORY."
+  (let ((entry (assq category gnus-article-image-alist)))
+    (dolist (image (cdr entry))
+      (gnus-remove-image image))
+    (setq gnus-article-image-alist (delq entry gnus-article-image-alist))
+    (gnus-delete-wash-type category)))
  
  (defalias 'gnus-article-hide-headers-if-wanted 'gnus-article-maybe-hide-headers)
  
  
  (defalias 'gnus-article-hide-headers-if-wanted 'gnus-article-maybe-hide-headers)
  
@@ -4464,7 +4962,9 @@ Provided for backwards compatibility."
        ;; save it to file.
        (goto-char (point-max))
        (insert "\n")
        ;; save it to file.
        (goto-char (point-max))
        (insert "\n")
-      (write-region-as-binary (point-min) (point-max) file-name 'append)
+      (let ((file-name-coding-system nnmail-pathname-coding-system)
+           (pathname-coding-system nnmail-pathname-coding-system))
+       (write-region-as-binary (point-min) (point-max) file-name 'append))
        t)))
  
  (defun gnus-narrow-to-page (&optional arg)
        t)))
  
  (defun gnus-narrow-to-page (&optional arg)
@@ -4633,7 +5133,7 @@ Argument LINES specifies lines to be scrolled down."
    (interactive "P")
    (gnus-article-check-buffer)
    (let ((nosaves
    (interactive "P")
    (gnus-article-check-buffer)
    (let ((nosaves
-        '("q" "Q"  "c" "r" "R" "\C-c\C-f" "m"  "a" "f" "F"
+        '("q" "Q"  "c" "r" "\C-c\C-f" "m"  "a" "f"
            "Zc" "ZC" "ZE" "ZJ" "ZQ" "ZZ" "Zn" "ZR" "ZG" "ZN" "ZP"
            "=" "^" "\M-^" "|"))
         (nosave-but-article
            "Zc" "ZC" "ZE" "ZJ" "ZQ" "ZZ" "Zn" "ZR" "ZG" "ZN" "ZP"
            "=" "^" "\M-^" "|"))
         (nosave-but-article
@@ -4746,6 +5246,39 @@ Argument LINES specifies lines to be scrolled down."
         (describe-key-briefly key insert))
      (describe-key-briefly key insert)))
  
         (describe-key-briefly key insert))
      (describe-key-briefly key insert)))
  
+(defun gnus-article-reply-with-original (&optional wide)
+  "Start composing a reply mail to the current message.
+The text in the region will be yanked.  If the region isn't active,
+the entire article will be yanked."
+  (interactive "P")
+  (let ((article (cdr gnus-article-current)) cont)
+    (if (not (mark t))
+       (gnus-summary-reply (list (list article)) wide)
+      (setq cont (buffer-substring (point) (mark t)))
+      ;; Deactivate active regions.
+      (when (and (boundp 'transient-mark-mode)
+                transient-mark-mode)
+       (setq mark-active nil))
+      (gnus-summary-reply
+       (list (list article cont)) wide))))
+
+(defun gnus-article-followup-with-original ()
+  "Compose a followup to the current article.
+The text in the region will be yanked.  If the region isn't active,
+the entire article will be yanked."
+  (interactive)
+  (let ((article (cdr gnus-article-current))
+       cont)
+    (if (not (mark t))
+       (gnus-summary-followup (list (list article)))
+      (setq cont (buffer-substring (point) (mark t)))
+      ;; Deactivate active regions.
+      (when (and (boundp 'transient-mark-mode)
+                transient-mark-mode)
+       (setq mark-active nil))
+      (gnus-summary-followup
+       (list (list article cont))))))
+
  (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)
  (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)
@@ -4770,6 +5303,9 @@ If given a prefix, show the hidden text instead."
      (gnus-check-server (gnus-find-method-for-group gnus-newsgroup-name))
      (gnus-request-group gnus-newsgroup-name t)))
  
      (gnus-check-server (gnus-find-method-for-group gnus-newsgroup-name))
      (gnus-request-group gnus-newsgroup-name t)))
  
+(eval-when-compile
+  (autoload 'nneething-get-file-name "nneething"))
+
  (defun gnus-request-article-this-buffer (article group)
    "Get an article and insert it into this buffer."
    (let (do-update-line sparse-header)
  (defun gnus-request-article-this-buffer (article group)
    "Get an article and insert it into this buffer."
    (let (do-update-line sparse-header)
@@ -4819,12 +5355,10 @@ If given a prefix, show the hidden text instead."
                                gnus-newsgroup-name)))
                   (when (and (eq (car method) 'nneething)
                              (vectorp header))
                                gnus-newsgroup-name)))
                   (when (and (eq (car method) 'nneething)
                              (vectorp header))
-                   (let ((dir (expand-file-name
-                               (mail-header-subject header)
-                               (file-name-as-directory
-                                (or (cadr (assq 'nneething-address method))
-                                    (nth 1 method))))))
-                     (when (file-directory-p dir)
+                   (let ((dir (nneething-get-file-name
+                               (mail-header-id header))))
+                     (when (and (stringp dir)
+                                (file-directory-p dir))
                         (setq article 'nneething)
                         (gnus-group-enter-directory dir))))))))
  
                         (setq article 'nneething)
                         (gnus-group-enter-directory dir))))))))
  
@@ -4839,6 +5373,15 @@ If given a prefix, show the hidden text instead."
                             (assq article gnus-newsgroup-reads)))
                      gnus-canceled-mark))
             nil)
                             (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)))
@@ -4854,12 +5397,19 @@ If given a prefix, show the hidden text instead."
                  (numberp article)
                  (gnus-cache-request-article article group))
             'article)
                  (numberp article)
                  (gnus-cache-request-article article group))
             'article)
+          ;; Check the agent cache.
+          ((and gnus-agent gnus-agent-cache gnus-plugged
+                (numberp article)
+                (gnus-agent-request-article article group))
+           'article)
            ;; Get the article and put into the article buffer.
            ((or (stringp article)
                 (numberp article))
             (let ((gnus-override-method gnus-override-method)
                   (methods (and (stringp article)
                                 gnus-refer-article-method))
            ;; Get the article and put into the article buffer.
            ((or (stringp article)
                 (numberp article))
             (let ((gnus-override-method gnus-override-method)
                   (methods (and (stringp article)
                                 gnus-refer-article-method))
+                 (backend (car (gnus-find-method-for-group
+                                gnus-newsgroup-name)))
                   result
                   (buffer-read-only nil))
               (if (or (not (listp methods))
                   result
                   (buffer-read-only nil))
               (if (or (not (listp methods))
@@ -4871,12 +5421,15 @@ If given a prefix, show the hidden text instead."
                 (setq gnus-override-method (pop methods)))
               (while (not result)
                 (when (eq gnus-override-method 'current)
                 (setq gnus-override-method (pop methods)))
               (while (not result)
                 (when (eq gnus-override-method 'current)
-                 (setq gnus-override-method gnus-current-select-method))
+                 (setq gnus-override-method
+                       (with-current-buffer gnus-summary-buffer
+                         gnus-current-select-method)))
                 (erase-buffer)
                 (gnus-kill-all-overlays)
                 (let ((gnus-newsgroup-name group))
                   (gnus-check-group-server))
                 (erase-buffer)
                 (gnus-kill-all-overlays)
                 (let ((gnus-newsgroup-name group))
                   (gnus-check-group-server))
-               (when (gnus-request-article article group (current-buffer))
+               (cond
+                ((gnus-request-article article group (current-buffer))
                   (when (numberp article)
                     (gnus-async-prefetch-next group article
                                               gnus-summary-buffer)
                   (when (numberp article)
                     (gnus-async-prefetch-next group article
                                               gnus-summary-buffer)
@@ -4884,10 +5437,13 @@ If given a prefix, show the hidden text instead."
                       (gnus-backlog-enter-article
                        group article (current-buffer))))
                   (setq result 'article))
                       (gnus-backlog-enter-article
                        group article (current-buffer))))
                   (setq result 'article))
-               (if (not result)
-                   (if methods
-                       (setq gnus-override-method (pop methods))
-                     (setq result 'done))))
+                (methods
+                 (setq gnus-override-method (pop methods)))
+                ((not (string-match "^400 "
+                                    (nnheader-get-report backend)))
+                 ;; If we get 400 server disconnect, reconnect and
+                 ;; retry; otherwise, assume the article has expired.
+                 (setq result 'done))))
               (and (eq result 'article) 'article)))
            ;; It was a pseudo.
            (t article)))
               (and (eq result 'article) 'article)))
            ;; It was a pseudo.
            (t article)))
@@ -4904,7 +5460,6 @@ If given a prefix, show the hidden text instead."
           (if (get-buffer gnus-original-article-buffer)
               (set-buffer gnus-original-article-buffer)
             (set-buffer (gnus-get-buffer-create gnus-original-article-buffer))
           (if (get-buffer gnus-original-article-buffer)
               (set-buffer gnus-original-article-buffer)
             (set-buffer (gnus-get-buffer-create gnus-original-article-buffer))
-           (set-buffer-multibyte nil)
             (buffer-disable-undo)
             (setq major-mode 'gnus-original-article-mode)
             (setq buffer-read-only t))
             (buffer-disable-undo)
             (setq major-mode 'gnus-original-article-mode)
             (setq buffer-read-only t))
@@ -4926,7 +5481,7 @@ If given a prefix, show the hidden text instead."
           (set-buffer gnus-summary-buffer)
           (gnus-summary-update-article do-update-line sparse-header)
           (gnus-summary-goto-subject do-update-line nil t)
           (set-buffer gnus-summary-buffer)
           (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)
+         (set-window-point (gnus-get-buffer-window (current-buffer) t)
                             (point))
           (set-buffer buf))))))
  
                             (point))
           (set-buffer buf))))))
  
@@ -4951,17 +5506,67 @@ If given a prefix, show the hidden text instead."
  
  ;; Should we be using derived.el for this?
  (unless gnus-article-edit-mode-map
  
  ;; Should we be using derived.el for this?
  (unless gnus-article-edit-mode-map
-  (setq gnus-article-edit-mode-map (make-sparse-keymap))
+  (setq gnus-article-edit-mode-map (make-keymap))
    (set-keymap-parent gnus-article-edit-mode-map text-mode-map)
  
    (gnus-define-keys gnus-article-edit-mode-map
    (set-keymap-parent gnus-article-edit-mode-map text-mode-map)
  
    (gnus-define-keys gnus-article-edit-mode-map
+    "\C-c?"    describe-mode
      "\C-c\C-c" gnus-article-edit-done
      "\C-c\C-c" gnus-article-edit-done
-    "\C-c\C-k" gnus-article-edit-exit)
+    "\C-c\C-k" gnus-article-edit-exit
+    "\C-c\C-f\C-t" message-goto-to
+    "\C-c\C-f\C-o" message-goto-from
+    "\C-c\C-f\C-b" message-goto-bcc
+    ;;"\C-c\C-f\C-w" message-goto-fcc
+    "\C-c\C-f\C-c" message-goto-cc
+    "\C-c\C-f\C-s" message-goto-subject
+    "\C-c\C-f\C-r" message-goto-reply-to
+    "\C-c\C-f\C-n" message-goto-newsgroups
+    "\C-c\C-f\C-d" message-goto-distribution
+    "\C-c\C-f\C-f" message-goto-followup-to
+    "\C-c\C-f\C-m" message-goto-mail-followup-to
+    "\C-c\C-f\C-k" message-goto-keywords
+    "\C-c\C-f\C-u" message-goto-summary
+    "\C-c\C-f\C-i" message-insert-or-toggle-importance
+    "\C-c\C-f\C-a" message-gen-unsubscribed-mft
+    "\C-c\C-b" message-goto-body
+    "\C-c\C-i" message-goto-signature
+
+    "\C-c\C-t" message-insert-to
+    "\C-c\C-n" message-insert-newsgroups
+    "\C-c\C-o" message-sort-headers
+    "\C-c\C-e" message-elide-region
+    "\C-c\C-v" message-delete-not-region
+    "\C-c\C-z" message-kill-to-signature
+    "\M-\r" message-newline-and-reformat
+    "\C-c\C-a" mml-attach-file
+    "\C-a" message-beginning-of-line
+    "\t" message-tab
+    "\M-;" comment-region)
  
    (gnus-define-keys (gnus-article-edit-wash-map
                      "\C-c\C-w" gnus-article-edit-mode-map)
      "f" gnus-article-edit-full-stops))
  
  
    (gnus-define-keys (gnus-article-edit-wash-map
                      "\C-c\C-w" gnus-article-edit-mode-map)
      "f" gnus-article-edit-full-stops))
  
+(easy-menu-define
+  gnus-article-edit-mode-field-menu gnus-article-edit-mode-map ""
+  '("Field"
+    ["Fetch To" message-insert-to t]
+    ["Fetch Newsgroups" message-insert-newsgroups t]
+    "----"
+    ["To" message-goto-to t]
+    ["From" message-goto-from t]
+    ["Subject" message-goto-subject t]
+    ["Cc" message-goto-cc t]
+    ["Reply-To" message-goto-reply-to t]
+    ["Summary" message-goto-summary t]
+    ["Keywords" message-goto-keywords t]
+    ["Newsgroups" message-goto-newsgroups t]
+    ["Followup-To" message-goto-followup-to t]
+    ["Mail-Followup-To" message-goto-mail-followup-to t]
+    ["Distribution" message-goto-distribution t]
+    ["Body" message-goto-body t]
+    ["Signature" message-goto-signature t]))
+
  (define-derived-mode gnus-article-edit-mode text-mode "Article Edit"
    "Major mode for editing articles.
  This is an extended text-mode.
  (define-derived-mode gnus-article-edit-mode text-mode "Article Edit"
    "Major mode for editing articles.
  This is an extended text-mode.
@@ -4971,6 +5576,8 @@ This is an extended text-mode.
    (make-local-variable 'gnus-prev-winconf)
    (set (make-local-variable 'font-lock-defaults)
         '(message-font-lock-keywords t))
    (make-local-variable 'gnus-prev-winconf)
    (set (make-local-variable 'font-lock-defaults)
         '(message-font-lock-keywords t))
+  (set (make-local-variable 'mail-header-separator) "")
+  (easy-menu-add message-mode-field-menu message-mode-map)
    (setq buffer-read-only nil)
    (buffer-enable-undo)
    (widen))
    (setq buffer-read-only nil)
    (buffer-enable-undo)
    (widen))
@@ -5012,39 +5619,31 @@ groups."
    (interactive "P")
    (let ((func gnus-article-edit-done-function)
         (buf (current-buffer))
    (interactive "P")
    (let ((func gnus-article-edit-done-function)
         (buf (current-buffer))
-       (start (window-start)))
+       (start (window-start))
+       (p (point))
+       (winconf gnus-prev-winconf))
      (remove-hook 'gnus-article-mode-hook
                  'gnus-article-mime-edit-article-unwind)
      (remove-hook 'gnus-article-mode-hook
                  'gnus-article-mime-edit-article-unwind)
-    ;; We remove all text props from the article buffer.
-    (let ((content
-          (buffer-substring-no-properties (point-min) (point-max)))
-         (p (point)))
-      (erase-buffer)
-      (insert content)
-      (let ((winconf gnus-prev-winconf))
-       (gnus-article-mode)
-       (set-window-configuration winconf)
-       ;; Tippy-toe some to make sure that point remains where it was.
-       (save-current-buffer
-         (set-buffer buf)
-         (set-window-start (get-buffer-window (current-buffer)) start)
-         (goto-char p))))
+    (widen) ;; Widen it in case that users narrowed the buffer.
+    (funcall func arg)
+    (set-buffer buf)
+    ;; The cache and backlog have to be flushed somewhat.
+    (when gnus-keep-backlog
+      (gnus-backlog-remove-article
+       (car gnus-article-current) (cdr gnus-article-current)))
+    ;; Flush original article as well.
      (save-excursion
      (save-excursion
-      (set-buffer buf)
-      (let ((buffer-read-only nil))
-       (funcall func arg))
-      ;; The cache and backlog have to be flushed somewhat.
-      (when gnus-keep-backlog
-       (gnus-backlog-remove-article
-        (car gnus-article-current) (cdr gnus-article-current)))
-      ;; Flush original article as well.
-      (save-excursion
-       (when (get-buffer gnus-original-article-buffer)
-         (set-buffer gnus-original-article-buffer)
-         (setq gnus-original-article nil)))
-      (when gnus-use-cache
-       (gnus-cache-update-article
-        (car gnus-article-current) (cdr gnus-article-current))))
+      (when (get-buffer gnus-original-article-buffer)
+       (set-buffer gnus-original-article-buffer)
+       (setq gnus-original-article nil)))
+    (when gnus-use-cache
+      (gnus-cache-update-article
+       (car gnus-article-current) (cdr gnus-article-current)))
+    ;; We remove all text props from the article buffer.
+    (kill-all-local-variables)
+    (gnus-set-text-properties (point-min) (point-max) nil)
+    (gnus-article-mode)
+    (set-window-configuration winconf)
      (set-buffer buf)
      (set-window-start (get-buffer-window buf) start)
      (set-window-point (get-buffer-window buf) (point))))
      (set-buffer buf)
      (set-window-start (get-buffer-window buf) start)
      (set-window-point (get-buffer-window buf) (point))))
@@ -5059,7 +5658,7 @@ groups."
           (window-start (window-start)))
        (erase-buffer)
        (if (gnus-buffer-live-p gnus-original-article-buffer)
           (window-start (window-start)))
        (erase-buffer)
        (if (gnus-buffer-live-p gnus-original-article-buffer)
-         (insert-buffer gnus-original-article-buffer))
+         (insert-buffer-substring gnus-original-article-buffer))
        (let ((winconf gnus-prev-winconf))
         (gnus-article-mode)
         (set-window-configuration winconf)
        (let ((winconf gnus-prev-winconf))
         (gnus-article-mode)
         (set-window-configuration winconf)
@@ -5129,7 +5728,7 @@ after replacing with the original article."
                              'gnus-article-mime-edit-exit
                              gnus-article-edit-mode-map)
    (erase-buffer)
                              'gnus-article-mime-edit-exit
                              gnus-article-edit-mode-map)
    (erase-buffer)
-  (insert-buffer gnus-original-article-buffer)
+  (insert-buffer-substring gnus-original-article-buffer)
    (let ((ofn (symbol-function 'mime-edit-decode-single-part-in-buffer)))
      (fset 'mime-edit-decode-single-part-in-buffer
           (lambda (&rest args)
    (let ((ofn (symbol-function 'mime-edit-decode-single-part-in-buffer)))
      (fset 'mime-edit-decode-single-part-in-buffer
           (lambda (&rest args)
@@ -5195,7 +5794,7 @@ after replacing with the original article."
  
  ;;; Internal Variables:
  
  
  ;;; Internal Variables:
  
-(defcustom gnus-button-url-regexp "\\b\\(\\(www\\.\\|\\(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\\)\\)"
+(defcustom gnus-button-url-regexp "\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\|info\\):\\)\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?\\([-a-zA-Z0-9_=!?#$@~`%&*+|\\/:;.,]\\|\\w\\)+\\([-a-zA-Z0-9_=#$@~`%&*+|\\/]\\|\\w\\)\\)"
    "Regular expression that matches URLs."
    :group 'gnus-article-buttons
    :type 'regexp)
    "Regular expression that matches URLs."
    :group 'gnus-article-buttons
    :type 'regexp)
@@ -5214,10 +5813,13 @@ after replacing with the original article."
      ("\\(<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)
      ("\\(<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 info
+    ("\\binfo:\\(//\\)?\\([^'\">\n\t ]+\\)" 0 t
+     gnus-button-handle-info 2)
      ;; This is how URLs _should_ be embedded in text...
      ;; This is how URLs _should_ be embedded in text...
-    ("<URL: *\\([^<>]*\\)>" 0 t gnus-button-embedded-url 1)
+    ("<URL: *\\([^<>]*\\)>" 1 t gnus-button-embedded-url 1)
      ;; Raw URLs.
      ;; Raw URLs.
-    (,gnus-button-url-regexp 0 t browse-url 0))
+    (gnus-button-url-regexp 0 t browse-url 0))
    "*Alist of regexps matching buttons in article bodies.
  
  Each entry has the form (REGEXP BUTTON FORM CALLBACK PAR...), where
    "*Alist of regexps matching buttons in article bodies.
  
  Each entry has the form (REGEXP BUTTON FORM CALLBACK PAR...), where
@@ -5231,7 +5833,7 @@ PAR: is a number of a regexp grouping whose text will be passed to CALLBACK.
  CALLBACK can also be a variable, in that case the value of that
  variable it the real callback function."
    :group 'gnus-article-buttons
  CALLBACK can also be a variable, in that case the value of that
  variable it the real callback function."
    :group 'gnus-article-buttons
-  :type '(repeat (list regexp
+  :type '(repeat (list (choice regexp variable)
                        (integer :tag "Button")
                        (sexp :tag "Form")
                        (function :tag "Callback")
                        (integer :tag "Button")
                        (sexp :tag "Form")
                        (function :tag "Callback")
@@ -5240,7 +5842,7 @@ variable it the real callback function."
                                (integer :tag "Regexp group")))))
  
  (defcustom gnus-header-button-alist
                                (integer :tag "Regexp group")))))
  
  (defcustom gnus-header-button-alist
-  `(("^\\(References\\|Message-I[Dd]\\):" "<[^>]+>"
+  `(("^\\(References\\|Message-I[Dd]\\):" "<[^<>]+>"
       0 t gnus-button-message-id 0)
      ("^\\(From\\|Reply-To\\):" ": *\\(.+\\)$" 1 t gnus-button-reply 1)
      ("^\\(Cc\\|To\\):" "[^ \t\n<>,()\"]+@[^ \t\n<>,()\"]+"
       0 t gnus-button-message-id 0)
      ("^\\(From\\|Reply-To\\):" ": *\\(.+\\)$" 1 t gnus-button-reply 1)
      ("^\\(Cc\\|To\\):" "[^ \t\n<>,()\"]+@[^ \t\n<>,()\"]+"
@@ -5248,6 +5850,7 @@ variable it the real callback function."
      ("^X-[Uu][Rr][Ll]:" ,gnus-button-url-regexp 0 t browse-url 0)
      ("^Subject:" ,gnus-button-url-regexp 0 t browse-url 0)
      ("^[^:]+:" ,gnus-button-url-regexp 0 t browse-url 0)
      ("^X-[Uu][Rr][Ll]:" ,gnus-button-url-regexp 0 t browse-url 0)
      ("^Subject:" ,gnus-button-url-regexp 0 t browse-url 0)
      ("^[^:]+:" ,gnus-button-url-regexp 0 t browse-url 0)
+    ("^[^:]+:" "\\bmailto:\\([-a-zA-Z.@_+0-9%=?]+\\)" 0 t gnus-url-mailto 1)
      ("^[^:]+:" "\\(<\\(url: \\)?news:\\([^>\n ]*\\)>\\)" 1 t
       gnus-button-message-id 3))
    "*Alist of headers and regexps to match buttons in article heads.
      ("^[^:]+:" "\\(<\\(url: \\)?news:\\([^>\n ]*\\)>\\)" 1 t
       gnus-button-message-id 3))
    "*Alist of headers and regexps to match buttons in article heads.
@@ -5458,7 +6061,7 @@ specified by `gnus-button-alist'."
        (article-goto-body)
        (setq beg (point))
        (while (setq entry (pop alist))
        (article-goto-body)
        (setq beg (point))
        (while (setq entry (pop alist))
-       (setq regexp (car entry))
+       (setq regexp (eval (car entry)))
         (goto-char beg)
         (while (re-search-forward regexp nil t)
           (let* ((start (and entry (match-beginning (nth 1 entry))))
         (goto-char beg)
         (while (re-search-forward regexp nil t)
           (let* ((start (and entry (match-beginning (nth 1 entry))))
@@ -5547,14 +6150,19 @@ specified by `gnus-button-alist'."
           (limit (next-single-property-change end 'mime-view-entity
                                               nil (point-max))))
        (if (text-property-any end limit 'article-type 'signature)
           (limit (next-single-property-change end 'mime-view-entity
                                               nil (point-max))))
        (if (text-property-any end limit 'article-type 'signature)
-         (gnus-remove-text-properties-when
-          'article-type 'signature end limit
-          (cons 'article-type (cons 'signature
-                                    gnus-hidden-properties)))
+         (progn
+           (gnus-delete-wash-type 'signature)
+           (gnus-remove-text-properties-when
+            'article-type 'signature end limit
+            (cons 'article-type (cons 'signature
+                                      gnus-hidden-properties))))
+       (gnus-add-wash-type 'signature)
         (gnus-add-text-properties-when
          'article-type nil end limit
          (cons 'article-type (cons 'signature
         (gnus-add-text-properties-when
          'article-type nil end limit
          (cons 'article-type (cons 'signature
-                                  gnus-hidden-properties)))))))
+                                  gnus-hidden-properties)))))
+    (let ((gnus-article-mime-handle-alist-1 gnus-article-mime-handle-alist))
+      (gnus-set-mode-line 'article))))
  
  (defun gnus-button-entry ()
    ;; Return the first entry in `gnus-button-alist' matching this place.
  
  (defun gnus-button-entry ()
    ;; Return the first entry in `gnus-button-alist' matching this place.
@@ -5562,7 +6170,7 @@ specified by `gnus-button-alist'."
         (entry nil))
      (while alist
        (setq entry (pop alist))
         (entry nil))
      (while alist
        (setq entry (pop alist))
-      (if (looking-at (car entry))
+      (if (looking-at (eval (car entry)))
           (setq alist nil)
         (setq entry nil)))
      entry))
           (setq alist nil)
         (setq entry nil)))
      entry))
@@ -5629,6 +6237,18 @@ specified by `gnus-button-alist'."
       (group
        (gnus-button-fetch-group url)))))
  
       (group
        (gnus-button-fetch-group url)))))
  
+(defun gnus-button-handle-info (url)
+  "Fetch an info URL."
+  (if (string-match
+       "^\\([^:/]+\\)?/\\(.*\\)"
+       url)
+      (gnus-info-find-node
+       (concat "(" (or (gnus-url-unhex-string (match-string 1 url))
+                      "Gnus")
+              ")"
+              (gnus-url-unhex-string (match-string 2 url))))
+    (error "Can't parse %s" url)))
+
  (defun gnus-button-message-id (message-id)
    "Fetch MESSAGE-ID."
    (save-excursion
  (defun gnus-button-message-id (message-id)
    "Fetch MESSAGE-ID."
    (save-excursion
@@ -5640,8 +6260,10 @@ specified by `gnus-button-alist'."
    (if (not (string-match "[:/]" address))
        ;; This is just a simple group url.
        (gnus-group-read-ephemeral-group address gnus-select-method)
    (if (not (string-match "[:/]" address))
        ;; This is just a simple group url.
        (gnus-group-read-ephemeral-group address gnus-select-method)
-    (if (not (string-match "^\\([^:/]+\\)\\(:\\([^/]+\\)/\\)?\\(.*\\)$"
-                          address))
+    (if (not
+        (string-match
+         "^\\([^:/]+\\)\\(:\\([^/]+\\)\\)?/\\([^/]+\\)\\(/\\([0-9]+\\)\\)?"
+         address))
         (error "Can't parse %s" address)
        (gnus-group-read-ephemeral-group
         (match-string 4 address)
         (error "Can't parse %s" address)
        (gnus-group-read-ephemeral-group
         (match-string 4 address)
@@ -5649,7 +6271,9 @@ specified by `gnus-button-alist'."
               (nntp-address ,(match-string 1 address))
               (nntp-port-number ,(if (match-end 3)
                                      (match-string 3 address)
               (nntp-address ,(match-string 1 address))
               (nntp-port-number ,(if (match-end 3)
                                      (match-string 3 address)
-                                  "nntp")))))))
+                                  "nntp")))
+       nil nil nil
+       (and (match-end 6) (list (string-to-int (match-string 6 address))))))))
  
  (defun gnus-url-parse-query-string (query &optional downcase)
    (let (retval pairs cur key val)
  
  (defun gnus-url-parse-query-string (query &optional downcase)
    (let (retval pairs cur key val)
@@ -5660,7 +6284,7 @@ specified by `gnus-button-alist'."
        (if (not (string-match "=" cur))
           nil                           ; Grace
         (setq key (gnus-url-unhex-string (substring cur 0 (match-beginning 0)))
        (if (not (string-match "=" cur))
           nil                           ; Grace
         (setq key (gnus-url-unhex-string (substring cur 0 (match-beginning 0)))
-             val (gnus-url-unhex-string (substring cur (match-end 0) nil)))
+             val (gnus-url-unhex-string (substring cur (match-end 0) nil) t))
         (if downcase
             (setq key (downcase key)))
         (setq cur (assoc key retval))
         (if downcase
             (setq key (downcase key)))
         (setq cur (assoc key retval))
@@ -5669,38 +6293,6 @@ specified by `gnus-button-alist'."
           (setq retval (cons (list key val) retval)))))
      retval))
  
           (setq retval (cons (list key val) retval)))))
      retval))
  
-(defun gnus-url-unhex (x)
-  (if (> x ?9)
-      (if (>= x ?a)
-         (+ 10 (- x ?a))
-       (+ 10 (- x ?A)))
-    (- x ?0)))
-
-(defun gnus-url-unhex-string (str &optional allow-newlines)
-  "Remove %XXX embedded spaces, etc in a url.
-If optional second argument ALLOW-NEWLINES is non-nil, then allow the
-decoding of carriage returns and line feeds in the string, which is normally
-forbidden in URL encoding."
-  (setq str (or str ""))
-  (let ((tmp "")
-       (case-fold-search t))
-    (while (string-match "%[0-9a-f][0-9a-f]" str)
-      (let* ((start (match-beginning 0))
-            (ch1 (gnus-url-unhex (elt str (+ start 1))))
-            (code (+ (* 16 ch1)
-                     (gnus-url-unhex (elt str (+ start 2))))))
-       (setq tmp (concat
-                  tmp (substring str 0 start)
-                  (cond
-                   (allow-newlines
-                    (char-to-string code))
-                   ((or (= code ?\n) (= code ?\r))
-                    " ")
-                   (t (char-to-string code))))
-             str (substring str (match-end 0)))))
-    (setq tmp (concat tmp str))
-    tmp))
-
  (defun gnus-url-mailto (url)
    ;; Send mail to someone
    (when (string-match "mailto:/*\\(.*\\)" url)
  (defun gnus-url-mailto (url)
    ;; Send mail to someone
    (when (string-match "mailto:/*\\(.*\\)" url)
@@ -5729,91 +6321,81 @@ forbidden in URL encoding."
    "Activate ADDRESS with `browse-url'."
    (browse-url (gnus-strip-whitespace address)))
  
    "Activate ADDRESS with `browse-url'."
    (browse-url (gnus-strip-whitespace address)))
  
-(eval-when-compile
-  ;; Silence the byte-compiler.
-  (autoload 'smiley-toggle-buffer "gnus-bitmap"))
-(defun gnus-article-smiley-display ()
-  "Display \"smileys\" as small graphical icons."
-  (smiley-toggle-buffer 1 (current-buffer) (point-min) (point-max)))
-
  ;;; Next/prev buttons in the article buffer.
  
  (defvar gnus-next-page-line-format "%{%(Next page...%)%}\n")
  (defvar gnus-prev-page-line-format "%{%(Previous page...%)%}\n")
  
  ;;; Next/prev buttons in the article buffer.
  
  (defvar gnus-next-page-line-format "%{%(Next page...%)%}\n")
  (defvar gnus-prev-page-line-format "%{%(Previous page...%)%}\n")
  
-(defvar gnus-prev-page-map nil)
-(unless gnus-prev-page-map
-  (setq gnus-prev-page-map (make-sparse-keymap))
-  (define-key gnus-prev-page-map gnus-mouse-2 'gnus-button-prev-page)
-  (define-key gnus-prev-page-map "\r" 'gnus-button-prev-page))
+(defvar gnus-prev-page-map
+  (let ((map (make-sparse-keymap)))
+    (unless (>= emacs-major-version 21)
+      ;; XEmacs doesn't care.
+      (set-keymap-parent map gnus-article-mode-map))
+    (define-key map gnus-mouse-2 'gnus-button-prev-page)
+    (define-key map "\r" 'gnus-button-prev-page)
+    map))
  
  
-(static-if (featurep 'xemacs)
-    (defun gnus-insert-prev-page-button ()
-      (let ((buffer-read-only nil))
-       (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
-                    article-type annotation))))
-  (defun gnus-insert-prev-page-button ()
-    (let ((buffer-read-only nil)
-         (situation (get-text-property (point-min) 'mime-view-situation)))
-      (set-keymap-parent gnus-prev-page-map (current-local-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
-                  article-type annotation
-                  mime-view-situation ,situation))))
-  )
+(defun gnus-insert-prev-page-button ()
+  (let ((b (point))
+       (buffer-read-only nil)
+       (situation (get-text-property (point-min) 'mime-view-situation)))
+    (gnus-eval-format
+     gnus-prev-page-line-format nil
+     `(,@(gnus-local-map-property gnus-prev-page-map)
+        gnus-prev t
+        gnus-callback gnus-article-button-prev-page
+        article-type annotation
+        mime-view-situation ,situation))
+    (widget-convert-button
+     'link b (point)
+     :action 'gnus-button-prev-page
+     :button-keymap gnus-prev-page-map)))
  
  
-(defvar gnus-next-page-map nil)
-(unless gnus-next-page-map
-  (setq gnus-next-page-map (make-sparse-keymap))
-  (define-key gnus-next-page-map gnus-mouse-2 'gnus-button-next-page)
-  (define-key gnus-next-page-map "\r" 'gnus-button-next-page))
+(defvar gnus-next-page-map
+  (let ((map (make-sparse-keymap)))
+    (unless (>= emacs-major-version 21)
+      ;; XEmacs doesn't care.
+      (set-keymap-parent map gnus-article-mode-map))
+    (define-key map gnus-mouse-2 'gnus-button-next-page)
+    (define-key map "\r" 'gnus-button-next-page)
+    map))
  
  
-(defun gnus-button-next-page ()
+(defun gnus-button-next-page (&optional args more-args)
    "Go to the next page."
    (interactive)
    (let ((win (selected-window)))
    "Go to the next page."
    (interactive)
    (let ((win (selected-window)))
-    (select-window (get-buffer-window gnus-article-buffer t))
+    (select-window (gnus-get-buffer-window gnus-article-buffer t))
      (gnus-article-next-page)
      (select-window win)))
  
      (gnus-article-next-page)
      (select-window win)))
  
-(defun gnus-button-prev-page ()
+(defun gnus-button-prev-page (&optional args more-args)
    "Go to the prev page."
    (interactive)
    (let ((win (selected-window)))
    "Go to the prev page."
    (interactive)
    (let ((win (selected-window)))
-    (select-window (get-buffer-window gnus-article-buffer t))
+    (select-window (gnus-get-buffer-window gnus-article-buffer t))
      (gnus-article-prev-page)
      (select-window win)))
  
      (gnus-article-prev-page)
      (select-window win)))
  
-(static-if (featurep 'xemacs)
-    (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
-                           article-type annotation))))
-  (defun gnus-insert-next-page-button ()
-    (let ((buffer-read-only nil)
-         (situation (get-text-property (point-min) 'mime-view-situation)))
-      (set-keymap-parent gnus-next-page-map (current-local-map))
-      (gnus-eval-format gnus-next-page-line-format nil
-                       `(gnus-next
-                         t local-map ,gnus-next-page-map
+(defun gnus-insert-next-page-button ()
+  (let ((b (point))
+       (buffer-read-only nil)
+       (situation (get-text-property (point-min) 'mime-view-situation)))
+    (gnus-eval-format gnus-next-page-line-format nil
+                     `(,@(gnus-local-map-property gnus-next-page-map)
+                         gnus-next t
                           gnus-callback gnus-article-button-next-page
                           article-type annotation
                           gnus-callback gnus-article-button-next-page
                           article-type annotation
-                         mime-view-situation ,situation))))
-  )
+                         mime-view-situation ,situation))
+    (widget-convert-button
+     'link b (point)
+     :action 'gnus-button-next-page
+     :button-keymap gnus-next-page-map)))
  
  (defun gnus-article-button-next-page (arg)
    "Go to the next page."
    (interactive "P")
    (let ((win (selected-window)))
  
  (defun gnus-article-button-next-page (arg)
    "Go to the next page."
    (interactive "P")
    (let ((win (selected-window)))
-    (select-window (get-buffer-window gnus-article-buffer t))
+    (select-window (gnus-get-buffer-window gnus-article-buffer t))
      (gnus-article-next-page)
      (select-window win)))
  
      (gnus-article-next-page)
      (select-window win)))
  
@@ -5821,7 +6403,7 @@ forbidden in URL encoding."
    "Go to the prev page."
    (interactive "P")
    (let ((win (selected-window)))
    "Go to the prev page."
    (interactive "P")
    (let ((win (selected-window)))
-    (select-window (get-buffer-window gnus-article-buffer t))
+    (select-window (gnus-get-buffer-window gnus-article-buffer t))
      (gnus-article-prev-page)
      (select-window win)))
  
      (gnus-article-prev-page)
      (select-window win)))
  
@@ -5831,11 +6413,11 @@ forbidden in URL encoding."
  
  This variable is a list of FUNCTION or (REGEXP . FUNCTION).  If item
  is FUNCTION, FUNCTION will be apply to all newsgroups.  If item is a
  
  This variable is a list of FUNCTION or (REGEXP . FUNCTION).  If item
  is FUNCTION, FUNCTION will be apply to all newsgroups.  If item is a
-(REGEXP . FUNCTION), FUNCTION will be only apply to thes newsgroups
+\(REGEXP . FUNCTION), FUNCTION will be only apply to thes newsgroups
  whose names match REGEXP.
  
  For example:
  whose names match REGEXP.
  
  For example:
-((\"chinese\" . gnus-decode-encoded-word-region-by-guess)
+\((\"chinese\" . gnus-decode-encoded-word-region-by-guess)
   mail-decode-encoded-word-region
   (\"chinese\" . rfc1843-decode-region))
  ")
   mail-decode-encoded-word-region
   (\"chinese\" . rfc1843-decode-region))
  ")
@@ -6066,21 +6648,25 @@ For example:
  (defun gnus-mime-security-verify-or-decrypt (handle)
    (mm-remove-parts (cdr handle))
    (let ((region (mm-handle-multipart-ctl-parameter handle 'gnus-region))
  (defun gnus-mime-security-verify-or-decrypt (handle)
    (mm-remove-parts (cdr handle))
    (let ((region (mm-handle-multipart-ctl-parameter handle 'gnus-region))
-       buffer-read-only)
+       point buffer-read-only)
+    (if region
+       (goto-char (car region)))
+    (save-restriction
+      (narrow-to-region (point) (point))
+      (with-current-buffer (mm-handle-multipart-original-buffer handle)
+       (let* ((mm-verify-option 'known)
+              (mm-decrypt-option 'known)
+              (nparts (mm-possibly-verify-or-decrypt (cdr handle) handle)))
+         (unless (eq nparts (cdr handle))
+           (mm-destroy-parts (cdr handle))
+           (setcdr handle nparts))))
+      (setq point (point))
+      (gnus-mime-display-security handle)
+      (goto-char (point-max)))
      (when region
      (when region
-      (delete-region (car region) (cdr region))
+      (delete-region (point) (cdr region))
        (set-marker (car region) nil)
        (set-marker (car region) nil)
-      (set-marker (cdr region) nil)))
-  (with-current-buffer (mm-handle-multipart-original-buffer handle)
-    (let* ((mm-verify-option 'known)
-          (mm-decrypt-option 'known)
-          (nparts (mm-possibly-verify-or-decrypt (cdr handle) handle)))
-      (unless (eq nparts (cdr handle))
-       (mm-destroy-parts (cdr handle))
-       (setcdr handle nparts))))
-  (let ((point (point))
-       buffer-read-only)
-    (gnus-mime-display-security handle)
+      (set-marker (cdr region) nil))
      (goto-char point)))
  
  (defun gnus-mime-security-show-details (handle)
      (goto-char point)))
  
  (defun gnus-mime-security-show-details (handle)
@@ -6096,13 +6682,15 @@ For example:
                          gnus-mime-security-button-line-format)
                 (forward-char -1))
               (forward-char)
                          gnus-mime-security-button-line-format)
                 (forward-char -1))
               (forward-char)
+             (save-restriction
+               (narrow-to-region (point) (point))
+               (gnus-insert-mime-security-button handle))
               (delete-region (point)
                              (or (text-property-not-all
                                   (point) (point-max)
                                   'gnus-line-format
                                   gnus-mime-security-button-line-format)
               (delete-region (point)
                              (or (text-property-not-all
                                   (point) (point-max)
                                   'gnus-line-format
                                   gnus-mime-security-button-line-format)
-                                (point-max)))
-             (gnus-insert-mime-security-button handle))
+                                (point-max))))
           (if (gnus-buffer-live-p gnus-mime-security-details-buffer)
               (with-current-buffer gnus-mime-security-details-buffer
                 (erase-buffer)
           (if (gnus-buffer-live-p gnus-mime-security-details-buffer)
               (with-current-buffer gnus-mime-security-details-buffer
                 (erase-buffer)
@@ -6148,14 +6736,11 @@ For example:
      (gnus-eval-format
       gnus-mime-security-button-line-format
       gnus-mime-security-button-line-format-alist
      (gnus-eval-format
       gnus-mime-security-button-line-format
       gnus-mime-security-button-line-format-alist
-     `(keymap ,gnus-mime-security-button-map
-             ,@(if (>= (string-to-number emacs-version) 21)
-                   nil ;; XEmacs doesn't care
-                 (list 'local-map gnus-mime-security-button-map))
-             gnus-callback gnus-mime-security-press-button
-             gnus-line-format ,gnus-mime-security-button-line-format
-             article-type annotation
-             gnus-data ,handle))
+     `(,@(gnus-local-map-property gnus-mime-security-button-map)
+        gnus-callback gnus-mime-security-press-button
+        gnus-line-format ,gnus-mime-security-button-line-format
+        article-type annotation
+        gnus-data ,handle))
      (setq e (point))
      (widget-convert-button
       'link b e
      (setq e (point))
      (widget-convert-button
       'link b e
@@ -6175,13 +6760,15 @@ For example:
  (defun gnus-mime-display-security (handle)
    (save-restriction
      (narrow-to-region (point) (point))
  (defun gnus-mime-display-security (handle)
    (save-restriction
      (narrow-to-region (point) (point))
-    (gnus-insert-mime-security-button handle)
+    (unless (gnus-unbuttonized-mime-type-p (car handle))
+      (gnus-insert-mime-security-button handle))
      (gnus-mime-display-mixed (cdr handle))
      (unless (bolp)
        (insert "\n"))
      (gnus-mime-display-mixed (cdr handle))
      (unless (bolp)
        (insert "\n"))
-    (let ((gnus-mime-security-button-line-format
-          gnus-mime-security-button-end-line-format))
-      (gnus-insert-mime-security-button handle))
+    (unless (gnus-unbuttonized-mime-type-p (car handle))
+      (let ((gnus-mime-security-button-line-format
+            gnus-mime-security-button-end-line-format))
+       (gnus-insert-mime-security-button handle)))
      (mm-set-handle-multipart-parameter
       handle 'gnus-region
       (cons (set-marker (make-marker) (point-min))
      (mm-set-handle-multipart-parameter
       handle 'gnus-region
       (cons (set-marker (make-marker) (point-min))
@@ -6193,7 +6780,7 @@ For example:
  
  (defun gnus-article-header-presentation-method (entity situation)
    (mime-insert-header entity)
  
  (defun gnus-article-header-presentation-method (entity situation)
    (mime-insert-header entity)
-  )
+  (article-decode-group-name))
  
  (set-alist 'mime-header-presentation-method-alist
            'gnus-original-article-mode
  
  (set-alist 'mime-header-presentation-method-alist
            'gnus-original-article-mode