Import Gnus v5.10.2.

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

index ada046f..d8121ff 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -26,7 +26,9 @@
  
  ;;; Code:
  
  
  ;;; Code:
  
-(eval-when-compile (require 'cl))
+(eval-when-compile
+  (require 'cl)
+  (defvar tool-bar-map))
  
  (require 'gnus)
  (require 'gnus-sum)
  
  (require 'gnus)
  (require 'gnus-sum)
@@ -39,6 +41,7 @@
  (require 'mm-view)
  (require 'wid-edit)
  (require 'mm-uu)
  (require 'mm-view)
  (require 'wid-edit)
  (require 'mm-uu)
+(require 'message)
  
  (autoload 'gnus-msg-mail "gnus-msg" nil t)
  (autoload 'gnus-button-mailto "gnus-msg")
  
  (autoload 'gnus-msg-mail "gnus-msg" nil t)
  (autoload 'gnus-button-mailto "gnus-msg")
@@ -106,43 +109,47 @@
    :group 'gnus-article)
  
  (defcustom gnus-ignored-headers
    :group 'gnus-article)
  
  (defcustom gnus-ignored-headers
-  '("^Path:" "^Expires:" "^Date-Received:" "^References:" "^Xref:" "^Lines:"
-    "^Relay-Version:" "^Message-ID:" "^Approved:" "^Sender:" "^Received:"
-    "^X-UIDL:" "^MIME-Version:" "^Return-Path:" "^In-Reply-To:"
-    "^Content-Type:" "^Content-Transfer-Encoding:" "^X-WebTV-Signature:"
-    "^X-MimeOLE:" "^X-MSMail-Priority:" "^X-Priority:" "^X-Loop:"
-    "^X-Authentication-Warning:" "^X-MIME-Autoconverted:" "^X-Face"
-    "^X-Attribution:" "^X-Originating-IP:" "^Delivered-To:"
-    "^NNTP-[-A-Za-z]+:" "^Distribution:" "^X-no-archive:" "^X-Trace:"
-    "^X-Complaints-To:" "^X-NNTP-Posting-Host:" "^X-Orig.*:"
-    "^Abuse-Reports-To:" "^Cache-Post-Path:" "^X-Article-Creation-Date:"
-    "^X-Poster:" "^X-Mail2News-Path:" "^X-Server-Date:" "^X-Cache:"
-    "^Originator:" "^X-Problems-To:" "^X-Auth-User:" "^X-Post-Time:"
-    "^X-Admin:" "^X-UID:" "^Resent-[-A-Za-z]+:" "^X-Mailing-List:"
-    "^Precedence:" "^Original-[-A-Za-z]+:" "^X-filename:" "^X-Orcpt:"
-    "^Old-Received:" "^X-Pgp" "^X-Auth:" "^X-From-Line:"
-    "^X-Gnus-Article-Number:" "^X-Majordomo:" "^X-Url:" "^X-Sender:"
-    "^MBOX-Line" "^Priority:" "^X400-[-A-Za-z]+:"
-    "^Status:" "^X-Gnus-Mail-Source:" "^Cancel-Lock:"
-    "^X-FTN" "^X-EXP32-SerialNo:" "^Encoding:" "^Importance:"
-    "^Autoforwarded:" "^Original-Encoded-Information-Types:" "^X-Ya-Pop3:"
-    "^X-Face-Version:" "^X-Vms-To:" "^X-ML-NAME:" "^X-ML-COUNT:"
-    "^Mailing-List:" "^X-finfo:" "^X-md5sum:" "^X-md5sum-Origin:"
-    "^X-Sun-Charset:" "^X-Accept-Language:" "^X-Envelope-Sender:"
-    "^List-[A-Za-z]+:" "^X-Listprocessor-Version:"
-    "^X-Received:" "^X-Distribute:" "^X-Sequence:" "^X-Juno-Line-Breaks:"
-    "^X-Notes-Item:" "^X-MS-TNEF-Correlator:" "^x-uunet-gateway:"
-    "^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-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:" "^X-Hashcash:")
+  (mapcar
+   (lambda (header)
+     (concat "^" header ":"))
+   '("Path" "Expires" "Date-Received" "References" "Xref" "Lines"
+     "Relay-Version" "Message-ID" "Approved" "Sender" "Received"
+     "X-UIDL" "MIME-Version" "Return-Path" "In-Reply-To"
+     "Content-Type" "Content-Transfer-Encoding" "X-WebTV-Signature"
+     "X-MimeOLE" "X-MSMail-Priority" "X-Priority" "X-Loop"
+     "X-Authentication-Warning" "X-MIME-Autoconverted" "X-Face"
+     "X-Attribution" "X-Originating-IP" "Delivered-To"
+     "NNTP-[-A-Za-z]+" "Distribution" "X-no-archive" "X-Trace"
+     "X-Complaints-To" "X-NNTP-Posting-Host" "X-Orig.*"
+     "Abuse-Reports-To" "Cache-Post-Path" "X-Article-Creation-Date"
+     "X-Poster" "X-Mail2News-Path" "X-Server-Date" "X-Cache"
+     "Originator" "X-Problems-To" "X-Auth-User" "X-Post-Time"
+     "X-Admin" "X-UID" "Resent-[-A-Za-z]+" "X-Mailing-List"
+     "Precedence" "Original-[-A-Za-z]+" "X-filename" "X-Orcpt"
+     "Old-Received" "X-Pgp" "X-Auth" "X-From-Line"
+     "X-Gnus-Article-Number" "X-Majordomo" "X-Url" "X-Sender"
+     "MBOX-Line" "Priority" "X400-[-A-Za-z]+"
+     "Status" "X-Gnus-Mail-Source" "Cancel-Lock"
+     "X-FTN" "X-EXP32-SerialNo" "Encoding" "Importance"
+     "Autoforwarded" "Original-Encoded-Information-Types" "X-Ya-Pop3"
+     "X-Face-Version" "X-Vms-To" "X-ML-NAME" "X-ML-COUNT"
+     "Mailing-List" "X-finfo" "X-md5sum" "X-md5sum-Origin"
+     "X-Sun-Charset" "X-Accept-Language" "X-Envelope-Sender"
+     "List-[A-Za-z]+" "X-Listprocessor-Version"
+     "X-Received" "X-Distribute" "X-Sequence" "X-Juno-Line-Breaks"
+     "X-Notes-Item" "X-MS-TNEF-Correlator" "x-uunet-gateway"
+     "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-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" "X-Hashcash" "Face" "X-DMCA-Notifications"
+     "X-Abuse-and-DMCA-Info" "X-Postfilter"))
    "*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."
@@ -181,6 +188,8 @@ Possible values in this list are:
    'empty       Headers with no content.
    'newsgroups  Newsgroup identical to Gnus group.
    'to-address  To identical to To-address.
    'empty       Headers with no content.
    'newsgroups  Newsgroup identical to Gnus group.
    'to-address  To identical to To-address.
+  'to-list     To identical to To-list.
+  'cc-list     CC identical to To-list.
    'followup-to Followup-to identical to Newsgroups.
    'reply-to    Reply-to identical to From.
    'date        Date less than four days old.
    'followup-to Followup-to identical to Newsgroups.
    'reply-to    Reply-to identical to From.
    'date        Date less than four days old.
@@ -189,6 +198,8 @@ Possible values in this list are:
    :type '(set (const :tag "Headers with no content." empty)
               (const :tag "Newsgroups identical to Gnus group." newsgroups)
               (const :tag "To identical to To-address." to-address)
    :type '(set (const :tag "Headers with no content." empty)
               (const :tag "Newsgroups identical to Gnus group." newsgroups)
               (const :tag "To identical to To-address." to-address)
+             (const :tag "To identical to To-list." to-list)
+             (const :tag "CC identical to To-list." cc-list)
               (const :tag "Followup-to identical to Newsgroups." followup-to)
               (const :tag "Reply-to identical to From." reply-to)
               (const :tag "Date less than four days old." date)
               (const :tag "Followup-to identical to Newsgroups." followup-to)
               (const :tag "Reply-to identical to From." reply-to)
               (const :tag "Date less than four days old." date)
@@ -196,6 +207,15 @@ Possible values in this list are:
               (const :tag "Multiple To and/or Cc headers." many-to))
    :group 'gnus-article-hiding)
  
               (const :tag "Multiple To and/or Cc headers." many-to))
    :group 'gnus-article-hiding)
  
+(defcustom gnus-article-skip-boring nil
+  "Skip over text that is not worth reading.
+By default, if you set this t, then Gnus will display citations and
+signatures, but will never scroll down to show you a page consisting
+only of boring text.  Boring text is controlled by
+`gnus-article-boring-faces'."
+  :type 'boolean
+  :group 'gnus-article-hiding)
+
  (defcustom gnus-signature-separator '("^-- $" "^-- *$")
    "Regexp matching signature separator.
  This can also be a list of regexps.  In that case, it will be checked
  (defcustom gnus-signature-separator '("^-- $" "^-- *$")
    "Regexp matching signature separator.
  This can also be a list of regexps.  In that case, it will be checked
@@ -540,10 +560,8 @@ The following additional specs are available:
    :type 'hook
    :group 'gnus-article-various)
  
    :type 'hook
    :group 'gnus-article-various)
  
-(defcustom gnus-article-hide-pgp-hook nil
-  "*A hook called after successfully hiding a PGP signature."
-  :type 'hook
-  :group 'gnus-article-various)
+(make-obsolete-variable 'gnus-article-hide-pgp-hook
+                       "This variable is obsolete in Gnus 5.10.")
  
  (defcustom gnus-article-button-face 'bold
    "Face used for highlighting buttons in the article buffer.
  
  (defcustom gnus-article-button-face 'bold
    "Face used for highlighting buttons in the article buffer.
@@ -667,7 +685,7 @@ displayed by the first non-nil matching CONTENT face."
  
  (defcustom gnus-article-decode-hook
    '(article-decode-charset article-decode-encoded-words
  
  (defcustom gnus-article-decode-hook
    '(article-decode-charset article-decode-encoded-words
-                          article-decode-group-name)
+                          article-decode-group-name article-decode-idna-rhs)
    "*Hook run to decode charsets in articles."
    :group 'gnus-article-headers
    :type 'hook)
    "*Hook run to decode charsets in articles."
    :group 'gnus-article-headers
    :type 'hook)
@@ -710,7 +728,8 @@ displayed by the first non-nil matching CONTENT face."
  
  (defcustom gnus-unbuttonized-mime-types '(".*/.*")
    "List of MIME types that should not be given buttons when rendered inline.
  
  (defcustom gnus-unbuttonized-mime-types '(".*/.*")
    "List of MIME types that should not be given buttons when rendered inline.
-See also `gnus-buttonized-mime-types' which may override this variable."
+See also `gnus-buttonized-mime-types' which may override this variable.
+This variable is only used when `gnus-inhibit-mime-unbuttonizing' is nil."
    :version "21.1"
    :group 'gnus-article-mime
    :type '(repeat regexp))
    :version "21.1"
    :group 'gnus-article-mime
    :type '(repeat regexp))
@@ -719,7 +738,8 @@ See also `gnus-buttonized-mime-types' which may override this variable."
    "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
    "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\")'."
+`(\"multipart/signed\")'.
+This variable is only used when `gnus-inhibit-mime-unbuttonizing' is nil."
    :version "21.1"
    :group 'gnus-article-mime
    :type '(repeat regexp))
    :version "21.1"
    :group 'gnus-article-mime
    :type '(repeat regexp))
@@ -786,7 +806,7 @@ This is meant for people who want to view first matched part.
  For `undisplayed-alternative' (default), the first undisplayed
  part or alternative part is used.  For `undisplayed', the first
  undisplayed part is used.  For a function, the first part which
  For `undisplayed-alternative' (default), the first undisplayed
  part or alternative part is used.  For `undisplayed', the first
  undisplayed part is used.  For a function, the first part which
-the function return `t' is used.  For `nil', the first part is
+the function return t is used.  For nil, the first part is
  used."
    :version "21.1"
    :group 'gnus-article-mime
  used."
    :version "21.1"
    :group 'gnus-article-mime
@@ -800,6 +820,7 @@ used."
  (defcustom gnus-mime-action-alist
    '(("save to file" . gnus-mime-save-part)
      ("save and strip" . gnus-mime-save-part-and-strip)
  (defcustom gnus-mime-action-alist
    '(("save to file" . gnus-mime-save-part)
      ("save and strip" . gnus-mime-save-part-and-strip)
+    ("delete part" . gnus-mime-delete-part)
      ("display as text" . gnus-mime-inline-part)
      ("view the part" . gnus-mime-view-part)
      ("pipe to command" . gnus-mime-pipe-part)
      ("display as text" . gnus-mime-inline-part)
      ("view the part" . gnus-mime-view-part)
      ("pipe to command" . gnus-mime-pipe-part)
@@ -839,7 +860,7 @@ used."
  (defvar gnus-inhibit-treatment nil
    "Whether to inhibit treatment.")
  
  (defvar gnus-inhibit-treatment nil
    "Whether to inhibit treatment.")
  
-(defcustom gnus-treat-highlight-signature '(or last (typep "text/x-vcard"))
+(defcustom gnus-treat-highlight-signature '(or t (typep "text/x-vcard"))
    "Highlight the signature.
  Valid values are nil, t, `head', `last', an integer or a predicate.
  See Info node `(gnus)Customizing Articles'."
    "Highlight the signature.
  Valid values are nil, t, `head', `last', an integer or a predicate.
  See Info node `(gnus)Customizing Articles'."
@@ -960,13 +981,8 @@ See Info node `(gnus)Customizing Articles' for details."
    :link '(custom-manual "(gnus)Customizing Articles")
    :type gnus-article-treat-custom)
  
    :link '(custom-manual "(gnus)Customizing Articles")
    :type gnus-article-treat-custom)
  
-(defcustom gnus-treat-strip-pgp t
-  "Strip PGP signatures.
-Valid values are nil, t, `head', `last', an integer or a predicate.
-See Info node `(gnus)Customizing Articles' for details."
-  :group 'gnus-article-treat
-  :link '(custom-manual "(gnus)Customizing Articles")
-  :type gnus-article-treat-custom)
+(make-obsolete-variable 'gnus-treat-strip-pgp 
+                       "This option is obsolete in Gnus 5.10.")
  
  (defcustom gnus-treat-strip-pem nil
    "Strip PEM signatures.
  
  (defcustom gnus-treat-strip-pem nil
    "Strip PEM signatures.
@@ -1131,7 +1147,8 @@ See Info node `(gnus)Customizing Articles' for details."
    (and (not noninteractive)
         (or (and (fboundp 'image-type-available-p)
                 (image-type-available-p 'xbm)
    (and (not noninteractive)
         (or (and (fboundp 'image-type-available-p)
                 (image-type-available-p 'xbm)
-               (string-match "^0x" (shell-command-to-string "uncompface")))
+               (string-match "^0x" (shell-command-to-string "uncompface"))
+               (executable-find "icontopbm"))
            (and (featurep 'xemacs)
                 (featurep 'xface)))
         'head)
            (and (featurep 'xemacs)
                 (featurep 'xface)))
         'head)
@@ -1146,16 +1163,23 @@ See Info node `(gnus)Customizing Articles' and Info node
    :type gnus-article-treat-head-custom)
  (put 'gnus-treat-display-xface 'highlight t)
  
    :type gnus-article-treat-head-custom)
  (put 'gnus-treat-display-xface 'highlight t)
  
-(defcustom gnus-treat-display-grey-xface
+(defcustom gnus-treat-display-face
    (and (not noninteractive)
    (and (not noninteractive)
-       (string-match "^0x" (shell-command-to-string "uncompface"))
-       t)
-  "Display grey X-Face headers.
-Valid values are nil, t."
+       (or (and (fboundp 'image-type-available-p)
+               (image-type-available-p 'png))
+          (and (featurep 'xemacs)
+               (featurep 'png)))
+       'head)
+  "Display Face headers.
+Valid values are nil, t, `head', `last', an integer or a predicate.
+See Info node `(gnus)Customizing Articles' and Info node
+`(gnus)X-Face' for details."
    :group 'gnus-article-treat
    :group 'gnus-article-treat
-  :version "21.3"
-  :type 'boolean)
-(put 'gnus-treat-display-grey-xface 'highlight t)
+  :version "21.1"
+  :link '(custom-manual "(gnus)Customizing Articles")
+  :link '(custom-manual "(gnus)X-Face")
+  :type gnus-article-treat-head-custom)
+(put 'gnus-treat-display-xface 'highlight t)
  
  (defcustom gnus-treat-display-smileys
    (if (or (and (featurep 'xemacs)
  
  (defcustom gnus-treat-display-smileys
    (if (or (and (featurep 'xemacs)
@@ -1299,6 +1323,18 @@ It is a string, such as \"PGP\". If nil, ask user."
  (defvar gnus-article-wash-function nil
    "Function used for converting HTML into text.")
  
  (defvar gnus-article-wash-function nil
    "Function used for converting HTML into text.")
  
+(defcustom gnus-use-idna (and (condition-case nil (require 'idna) (file-error))
+                             (mm-coding-system-p 'utf-8))
+  "Whether IDNA decoding of headers is used when viewing messages.
+This requires GNU Libidn, and by default only enabled if it is found."
+  :group 'gnus-article-headers
+  :type 'boolean)
+
+(defcustom gnus-article-over-scroll nil
+  "If non-nil, allow scrolling the article buffer even when there no more text."
+  :group 'gnus-article
+  :type 'boolean)
+
  ;;; Internal variables
  
  (defvar gnus-english-month-names
  ;;; Internal variables
  
  (defvar gnus-english-month-names
@@ -1329,12 +1365,12 @@ It is a string, such as \"PGP\". If nil, ask user."
      (gnus-treat-date-user-defined gnus-article-date-user)
      (gnus-treat-date-iso8601 gnus-article-date-iso8601)
      (gnus-treat-display-xface gnus-article-display-x-face)
      (gnus-treat-date-user-defined gnus-article-date-user)
      (gnus-treat-date-iso8601 gnus-article-date-iso8601)
      (gnus-treat-display-xface gnus-article-display-x-face)
+    (gnus-treat-display-face gnus-article-display-face)
      (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-strip-list-identifiers gnus-article-hide-list-identifiers)
      (gnus-treat-leading-whitespace gnus-article-remove-leading-whitespace)
      (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-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-strip-pem gnus-article-hide-pem)
      (gnus-treat-from-picon gnus-treat-from-picon)
      (gnus-treat-mail-picon gnus-treat-mail-picon)
@@ -1568,7 +1604,7 @@ always hide."
               (while (re-search-forward "^[^: \t]+:[ \t]*\n[^ \t]" nil t)
                 (forward-line -1)
                 (gnus-article-hide-text-type
               (while (re-search-forward "^[^: \t]+:[ \t]*\n[^ \t]" nil t)
                 (forward-line -1)
                 (gnus-article-hide-text-type
-                (progn (beginning-of-line) (point))
+                (gnus-point-at-bol)
                  (progn
                    (end-of-line)
                    (if (re-search-forward "^[^ \t]" nil t)
                  (progn
                    (end-of-line)
                    (if (re-search-forward "^[^ \t]" nil t)
@@ -1597,21 +1633,50 @@ always hide."
                               (nth 1 (mail-extract-address-components to))
                               to-address)))
                   (gnus-article-hide-header "to"))))
                               (nth 1 (mail-extract-address-components to))
                               to-address)))
                   (gnus-article-hide-header "to"))))
+            ((eq elem 'to-list)
+             (let ((to (message-fetch-field "to"))
+                   (to-list
+                    (gnus-parameter-to-list
+                     (if (boundp 'gnus-newsgroup-name)
+                         gnus-newsgroup-name ""))))
+               (when (and to to-list
+                          (ignore-errors
+                            (gnus-string-equal
+                             ;; only one address in To
+                             (nth 1 (mail-extract-address-components to))
+                             to-list)))
+                 (gnus-article-hide-header "to"))))
+            ((eq elem 'cc-list)
+             (let ((cc (message-fetch-field "cc"))
+                   (to-list
+                    (gnus-parameter-to-list
+                     (if (boundp 'gnus-newsgroup-name)
+                         gnus-newsgroup-name ""))))
+               (when (and cc to-list
+                          (ignore-errors
+                            (gnus-string-equal
+                             ;; only one address in CC
+                             (nth 1 (mail-extract-address-components cc))
+                             to-list)))
+                 (gnus-article-hide-header "cc"))))
              ((eq elem 'followup-to)
               (when (gnus-string-equal
                      (message-fetch-field "followup-to")
                      (message-fetch-field "newsgroups"))
                 (gnus-article-hide-header "followup-to")))
              ((eq elem 'reply-to)
              ((eq elem 'followup-to)
               (when (gnus-string-equal
                      (message-fetch-field "followup-to")
                      (message-fetch-field "newsgroups"))
                 (gnus-article-hide-header "followup-to")))
              ((eq elem 'reply-to)
-             (let ((from (message-fetch-field "from"))
-                   (reply-to (message-fetch-field "reply-to")))
-               (when (and
-                      from reply-to
-                      (ignore-errors
-                        (gnus-string-equal
-                         (nth 1 (mail-extract-address-components from))
-                         (nth 1 (mail-extract-address-components reply-to)))))
-                 (gnus-article-hide-header "reply-to"))))
+             (if (gnus-group-find-parameter
+                  gnus-newsgroup-name 'broken-reply-to)
+                 (gnus-article-hide-header "reply-to")
+               (let ((from (message-fetch-field "from"))
+                     (reply-to (message-fetch-field "reply-to")))
+                 (when (and
+                        from reply-to
+                        (ignore-errors
+                          (gnus-string-equal
+                           (nth 1 (mail-extract-address-components from))
+                           (nth 1 (mail-extract-address-components reply-to)))))
+                   (gnus-article-hide-header "reply-to")))))
              ((eq elem 'date)
               (let ((date (message-fetch-field "date")))
                 (when (and date
              ((eq elem 'date)
               (let ((date (message-fetch-field "date")))
                 (when (and date
@@ -1658,7 +1723,7 @@ always hide."
      (goto-char (point-min))
      (when (re-search-forward (concat "^" header ":") nil t)
        (gnus-article-hide-text-type
      (goto-char (point-min))
      (when (re-search-forward (concat "^" header ":") nil t)
        (gnus-article-hide-text-type
-       (progn (beginning-of-line) (point))
+       (gnus-point-at-bol)
         (progn
          (end-of-line)
          (if (re-search-forward "^[^ \t]" nil t)
         (progn
          (end-of-line)
          (if (re-search-forward "^[^ \t]" nil t)
@@ -1774,7 +1839,7 @@ unfolded."
        (while (not (eobp))
         (save-restriction
           (mail-header-narrow-to-field)
        (while (not (eobp))
         (save-restriction
           (mail-header-narrow-to-field)
-         (let ((header (buffer-substring (point-min) (point-max))))
+         (let ((header (buffer-string)))
             (with-temp-buffer
               (insert header)
               (goto-char (point-min))
             (with-temp-buffer
               (insert header)
               (goto-char (point-min))
@@ -1859,7 +1924,8 @@ unfolded."
           (while (not (eobp))
             (end-of-line)
             (when (>= (current-column) (min fill-column width))
           (while (not (eobp))
             (end-of-line)
             (when (>= (current-column) (min fill-column width))
-             (narrow-to-region (min (1+ (point)) (point-max)) (gnus-point-at-bol))
+             (narrow-to-region (min (1+ (point)) (point-max))
+                               (gnus-point-at-bol))
                (let ((goback (point-marker)))
                  (fill-paragraph nil)
                  (goto-char (marker-position goback)))
                (let ((goback (point-marker)))
                  (fill-paragraph nil)
                  (goto-char (marker-position goback)))
@@ -1906,6 +1972,24 @@ unfolded."
          (forward-line 1)
          (point))))))
  
          (forward-line 1)
          (point))))))
  
+(defun article-display-face ()
+  "Display any Face headers in the header."
+  (interactive)
+  (gnus-with-article-headers
+    (let ((face (message-fetch-field "face")))
+      (when face
+       (let ((png (gnus-convert-face-to-png face))
+             image)
+         (when png
+           (setq image (gnus-create-image png 'png t))
+           (gnus-article-goto-header "from")
+           (when (bobp)
+             (insert "From: [no `from' set]\n")
+             (forward-char -17))
+           (gnus-add-wash-type 'face)
+           (gnus-add-image 'face image)
+           (gnus-put-image image)))))))
+
  (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))
@@ -1919,7 +2003,7 @@ unfolded."
           ;; instead.
           (gnus-delete-images 'xface)
         ;; Display X-Faces.
           ;; instead.
           (gnus-delete-images 'xface)
         ;; Display X-Faces.
-       (let (x-faces from face grey)
+       (let (x-faces from face)
           (save-excursion
             (when (and wash-face-p
                        (progn
           (save-excursion
             (when (and wash-face-p
                        (progn
@@ -1933,67 +2017,39 @@ unfolded."
               (set-buffer gnus-original-article-buffer))
             (save-restriction
               (mail-narrow-to-head)
               (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)))
+             (while (gnus-article-goto-header "X-Face")
+               (push (mail-header-field-value) x-faces))
               (setq from (message-fetch-field "from"))))
               (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)
-                     (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.
-               (let ((process-connection-type nil))
-                 (process-kill-without-query
-                  (start-process
-                   "article-x-face" nil shell-file-name shell-command-switch
-                   gnus-article-x-face-command))
-                 (with-temp-buffer
-                   (insert face)
-                   (process-send-region "article-x-face"
-                                        (point-min) (point-max)))
-                 (process-send-eof "article-x-face"))))))))))
+         ;; 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 (functionp gnus-article-x-face-command)
+                   (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.
+             (let ((process-connection-type nil))
+               (process-kill-without-query
+                (start-process
+                 "article-x-face" nil shell-file-name shell-command-switch
+                 gnus-article-x-face-command))
+               (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 ()
    "Decode all MIME-encoded words in the article."
  
  (defun article-decode-mime-words ()
    "Decode all MIME-encoded words in the article."
@@ -2076,20 +2132,60 @@ If PROMPT (the prefix), prompt for a coding system to use."
      (when (and (or gnus-group-name-charset-method-alist
                    gnus-group-name-charset-group-alist)
                (gnus-buffer-live-p gnus-original-article-buffer))
      (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))))))
+      (save-restriction
+       (article-narrow-to-head)
+       (with-current-buffer gnus-original-article-buffer
+         (goto-char (point-min)))
+       (while (re-search-forward
+               "^Newsgroups:\\(\\(.\\|\n[\t ]\\)*\\)\n[^\t ]" nil t)
+         (replace-match (save-match-data
+                          (gnus-decode-newsgroups
+                           ;; XXX how to use data in article buffer?
+                           (with-current-buffer gnus-original-article-buffer
+                             (re-search-forward
+                              "^Newsgroups:\\(\\(.\\|\n[\t ]\\)*\\)\n[^\t ]"
+                              nil t)
+                             (match-string 1))
+                           gnus-newsgroup-name method))
+                        t t nil 1))
+       (goto-char (point-min))
+       (with-current-buffer gnus-original-article-buffer
+         (goto-char (point-min)))
+       (while (re-search-forward
+               "^Followup-To:\\(\\(.\\|\n[\t ]\\)*\\)\n[^\t ]" nil t)
+         (replace-match (save-match-data
+                          (gnus-decode-newsgroups
+                           ;; XXX how to use data in article buffer?
+                           (with-current-buffer gnus-original-article-buffer
+                             (re-search-forward
+                              "^Followup-To:\\(\\(.\\|\n[\t ]\\)*\\)\n[^\t ]"
+                              nil t)
+                             (match-string 1))
+                           gnus-newsgroup-name method))
+                        t t nil 1))))))
+
+(autoload 'idna-to-unicode "idna")
+
+(defun article-decode-idna-rhs ()
+  "Decode IDNA strings in RHS in From:, To: and Cc: headers in current buffer."
+  (when gnus-use-idna
+    (save-restriction
+      (let ((inhibit-point-motion-hooks t)
+           buffer-read-only)
+       (article-narrow-to-head)
+       (goto-char (point-min))
+       (while (re-search-forward "\\(xn--[-A-Za-z0-9.]*\\)[ \t\n\r,>]" nil t)
+         (let (ace unicode)
+           (when (save-match-data
+                   (and (setq ace (match-string 1))
+                        (save-excursion
+                          (and (re-search-backward "^[^ \t]" nil t)
+                               (looking-at "From\\|To\\|Cc")))
+                        (save-excursion (backward-char)
+                                        (message-idna-inside-rhs-p))
+                        (setq unicode (idna-to-unicode ace))))
+             (unless (string= ace unicode)
+               (replace-match unicode nil nil nil 1)))))))))
  
  (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.
@@ -2209,7 +2305,7 @@ If READ-CHARSET, ask for a coding system."
             (when entry
               (setq func (cdr entry)))
             (cond
             (when entry
               (setq func (cdr entry)))
             (cond
-            ((gnus-functionp func)
+            ((functionp func)
               (funcall func))
              (t
               (apply (car func) (cdr func))))))))))
               (funcall func))
              (t
               (apply (car func) (cdr func))))))))))
@@ -2233,7 +2329,6 @@ If READ-CHARSET, ask for a coding system."
      (let ((w3m-safe-url-regexp (if mm-inline-text-html-with-images
                                    nil
                                  "\\`cid:"))
      (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
           w3m-force-redisplay)
        (w3m-region (point-min) (point-max)))
      (when mm-inline-text-html-with-w3m-keymap
@@ -2265,42 +2360,6 @@ The `gnus-list-identifiers' variable specifies what to do."
                  "^Subject: +\\(\\(R[Ee]: +\\)+\\)R[Ee]: +" nil t)
             (delete-region (match-beginning 1) (match-end 1))))))))
  
                  "^Subject: +\\(\\(R[Ee]: +\\)+\\)R[Ee]: +" nil t)
             (delete-region (match-beginning 1) (match-end 1))))))))
  
-(defun article-hide-pgp ()
-  "Remove any PGP headers and signatures in the current article."
-  (interactive)
-  (save-excursion
-    (save-restriction
-      (let ((inhibit-point-motion-hooks t)
-           buffer-read-only beg end)
-       (article-goto-body)
-       ;; Hide the "header".
-       (when (re-search-forward "^-----BEGIN PGP SIGNED MESSAGE-----\n" nil t)
-         (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)
-                                    (point)))
-         (setq beg (point))
-         ;; Hide the actual signature.
-         (and (search-forward "\n-----BEGIN PGP SIGNATURE-----\n" nil t)
-              (setq end (1+ (match-beginning 0)))
-              (delete-region
-               end
-               (if (search-forward "\n-----END PGP SIGNATURE-----\n" nil t)
-                   (match-end 0)
-                 ;; Perhaps we shouldn't hide to the end of the buffer
-                 ;; if there is no end to the signature?
-                 (point-max))))
-         ;; Hide "- " PGP quotation markers.
-         (when (and beg end)
-           (narrow-to-region beg end)
-           (goto-char (point-min))
-           (while (re-search-forward "^- " nil t)
-             (delete-region
-              (match-beginning 0) (match-end 0)))
-           (widen))
-         (gnus-run-hooks 'gnus-article-hide-pgp-hook))))))
-
  (defun article-hide-pem (&optional arg)
    "Toggle hiding of any PEM headers and signatures in the current article.
  If given a negative prefix, always show; if given a positive prefix,
  (defun article-hide-pem (&optional arg)
    "Toggle hiding of any PEM headers and signatures in the current article.
  If given a negative prefix, always show; if given a positive prefix,
@@ -2329,43 +2388,50 @@ always hide."
              (match-beginning 0) (match-end 0) 'pem)))))))
  
  (defun article-strip-banner ()
              (match-beginning 0) (match-end 0) 'pem)))))))
  
  (defun article-strip-banner ()
-  "Strip the banner specified by the `banner' group parameter."
+  "Strip the banners specified by the `banner' group parameter and by
+`gnus-article-address-banner-alist'."
    (interactive)
    (save-excursion
      (save-restriction
    (interactive)
    (save-excursion
      (save-restriction
+      (let ((inhibit-point-motion-hooks t))
+       (when (gnus-parameter-banner gnus-newsgroup-name)
+         (article-really-strip-banner
+          (gnus-parameter-banner gnus-newsgroup-name)))
+       (when gnus-article-address-banner-alist
+         (article-really-strip-banner
+          (let ((from (save-restriction
+                        (widen)
+                        (article-narrow-to-head)
+                        (mail-fetch-field "from"))))
+            (when (and from
+                       (setq from
+                             (caar (mail-header-parse-addresses from))))
+              (catch 'found
+                (dolist (pair gnus-article-address-banner-alist)
+                  (when (string-match (car pair) from)
+                    (throw 'found (cdr pair)))))))))))))
+
+(defun article-really-strip-banner (banner)
+  "Strip the banner specified by the argument."
+  (save-excursion
+    (save-restriction
        (let ((inhibit-point-motion-hooks t)
        (let ((inhibit-point-motion-hooks t)
-           (banner (gnus-parameter-banner gnus-newsgroup-name))
             (gnus-signature-limit nil)
             (gnus-signature-limit nil)
-           buffer-read-only beg end)
-       (when (and gnus-article-address-banner-alist
-                  (not banner))
-         (setq banner
-               (let ((from (save-restriction
-                             (widen)
-                             (article-narrow-to-head)
-                             (mail-fetch-field "from"))))
-                 (when (and from
-                            (setq from
-                                  (caar (mail-header-parse-addresses from))))
-                   (catch 'found
-                     (dolist (pair gnus-article-address-banner-alist)
-                       (when (string-match (car pair) from)
-                         (throw 'found (cdr pair)))))))))
-       (when banner
-         (article-goto-body)
-         (cond
-          ((eq banner 'signature)
-           (when (gnus-article-narrow-to-signature)
-             (widen)
-             (forward-line -1)
-             (delete-region (point) (point-max))))
-          ((symbolp banner)
-           (if (setq banner (cdr (assq banner gnus-article-banner-alist)))
-               (while (re-search-forward banner nil t)
-                 (delete-region (match-beginning 0) (match-end 0)))))
-          ((stringp banner)
-           (while (re-search-forward banner nil t)
-             (delete-region (match-beginning 0) (match-end 0))))))))))
+           buffer-read-only)
+       (article-goto-body)
+       (cond
+        ((eq banner 'signature)
+         (when (gnus-article-narrow-to-signature)
+           (widen)
+           (forward-line -1)
+           (delete-region (point) (point-max))))
+        ((symbolp banner)
+         (if (setq banner (cdr (assq banner gnus-article-banner-alist)))
+             (while (re-search-forward banner nil t)
+               (delete-region (match-beginning 0) (match-end 0)))))
+        ((stringp banner)
+         (while (re-search-forward banner nil t)
+           (delete-region (match-beginning 0) (match-end 0)))))))))
  
  (defun article-babel ()
    "Translate article using an online translation service."
  
  (defun article-babel ()
    "Translate article using an online translation service."
@@ -2513,7 +2579,7 @@ Point is left at the beginning of the narrowed-to region."
                        (< (- (point-max) (point)) limit))
                   (and (floatp limit)
                        (< (count-lines (point) (point-max)) limit))
                        (< (- (point-max) (point)) limit))
                   (and (floatp limit)
                        (< (count-lines (point) (point-max)) limit))
-                 (and (gnus-functionp limit)
+                 (and (functionp limit)
                        (funcall limit))
                   (and (stringp limit)
                        (not (re-search-forward limit nil t))))
                        (funcall limit))
                   (and (stringp limit)
                        (not (re-search-forward limit nil t))))
@@ -2715,7 +2781,7 @@ should replace the \"Date:\" one, or should be added below it."
                                   gnus-article-time-format)
                               (error nil))
                             gnus-article-time-format)))
                                   gnus-article-time-format)
                               (error nil))
                             gnus-article-time-format)))
-           (if (gnus-functionp format)
+           (if (functionp format)
                 (funcall format time)
               (concat "Date: " (format-time-string format time)))))
          ;; ISO 8601.
                 (funcall format time)
               (concat "Date: " (format-time-string format time)))))
          ;; ISO 8601.
@@ -3086,6 +3152,7 @@ Directory to save to is default to `gnus-article-save-directory'."
        (save-restriction
         (widen)
         (if (and (file-readable-p filename)
        (save-restriction
         (widen)
         (if (and (file-readable-p filename)
+                (file-regular-p filename)
                  (mail-file-babyl-p filename))
             (rmail-output-to-rmail-file filename t)
           (gnus-output-to-mail filename)))))
                  (mail-file-babyl-p filename))
             (rmail-output-to-rmail-file filename t)
           (gnus-output-to-mail filename)))))
@@ -3159,9 +3226,17 @@ 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))
  
+(defmacro gnus-read-string (prompt &optional initial-contents history 
+                           default-value)
+  "Like `read-string' but allow for older XEmacsen that don't have the 5th arg."
+  (if (and (featurep 'xemacs)
+          (< emacs-minor-version 2))
+      `(read-string ,prompt ,initial-contents ,history)
+    `(read-string ,prompt ,initial-contents ,history ,default-value)))
+
  (defun gnus-summary-pipe-to-muttprint (&optional command)
    "Pipe this article to muttprint."
  (defun gnus-summary-pipe-to-muttprint (&optional command)
    "Pipe this article to muttprint."
-  (setq command (read-string
+  (setq command (gnus-read-string
                  "Print using command: " gnus-summary-muttprint-program
                  nil gnus-summary-muttprint-program))
    (gnus-summary-save-in-pipe command))
                  "Print using command: " gnus-summary-muttprint-program
                  nil gnus-summary-muttprint-program))
    (gnus-summary-save-in-pipe command))
@@ -3243,7 +3318,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)
@@ -3251,7 +3326,8 @@ If variable `gnus-use-long-file-name' is non-nil, it is
               ;; Don't verify multiple headers.
               (setq headers (mapconcat (lambda (header)
                                          (concat header ": "
               ;; Don't verify multiple headers.
               (setq headers (mapconcat (lambda (header)
                                          (concat header ": "
-                                                (mail-fetch-field header) "\n"))
+                                                (mail-fetch-field header)
+                                                "\n"))
                                        (split-string (nth 1 items) ",") "")))
             (delete-region (point-min) (point-max))
             (insert "-----BEGIN PGP SIGNED MESSAGE-----\n\n")
                                        (split-string (nth 1 items) ",") "")))
             (delete-region (point-min) (point-max))
             (insert "-----BEGIN PGP SIGNED MESSAGE-----\n\n")
@@ -3340,13 +3416,13 @@ If variable `gnus-use-long-file-name' is non-nil, it is
       article-remove-cr
       article-remove-leading-whitespace
       article-display-x-face
       article-remove-cr
       article-remove-leading-whitespace
       article-display-x-face
+     article-display-face
       article-de-quoted-unreadable
       article-de-base64-unreadable
       article-decode-HZ
       article-wash-html
       article-unsplit-urls
       article-hide-list-identifiers
       article-de-quoted-unreadable
       article-de-base64-unreadable
       article-decode-HZ
       article-wash-html
       article-unsplit-urls
       article-hide-list-identifiers
-     article-hide-pgp
       article-strip-banner
       article-babel
       article-hide-pem
       article-strip-banner
       article-babel
       article-hide-pem
@@ -3449,9 +3525,6 @@ If variable `gnus-use-long-file-name' is non-nil, it is
  
      (gnus-run-hooks 'gnus-article-menu-hook)))
  
  
      (gnus-run-hooks 'gnus-article-menu-hook)))
  
-;; Fixme: do something for the Emacs tool bar in Article mode a la
-;; Summary.
-
  (defun gnus-article-mode ()
    "Major mode for displaying an article.
  
  (defun gnus-article-mode ()
    "Major mode for displaying an article.
  
@@ -3474,7 +3547,9 @@ commands:
    (make-local-variable 'minor-mode-alist)
    (use-local-map gnus-article-mode-map)
    (when (gnus-visual-p 'article-menu 'menu)
    (make-local-variable 'minor-mode-alist)
    (use-local-map gnus-article-mode-map)
    (when (gnus-visual-p 'article-menu 'menu)
-    (gnus-article-make-menu-bar))
+    (gnus-article-make-menu-bar)
+    (when gnus-summary-tool-bar-map
+      (set (make-local-variable 'tool-bar-map) gnus-summary-tool-bar-map)))
    (gnus-update-format-specifications nil 'article-mode)
    (set (make-local-variable 'page-delimiter) gnus-page-delimiter)
    (make-local-variable 'gnus-page-broken)
    (gnus-update-format-specifications nil 'article-mode)
    (set (make-local-variable 'page-delimiter) gnus-page-delimiter)
    (make-local-variable 'gnus-page-broken)
@@ -3535,6 +3610,8 @@ commands:
           (setq gnus-article-mime-handle-alist nil)
           (buffer-disable-undo)
           (setq buffer-read-only t)
           (setq gnus-article-mime-handle-alist nil)
           (buffer-disable-undo)
           (setq buffer-read-only t)
+         ;; This list just keeps growing if we don't reset it.
+         (setq gnus-button-marker-list nil)
           (unless (eq major-mode 'gnus-article-mode)
             (gnus-article-mode))
           (current-buffer))
           (unless (eq major-mode 'gnus-article-mode)
             (gnus-article-mode))
           (current-buffer))
@@ -3593,7 +3670,9 @@ If ALL-HEADERS is non-nil, no headers are hidden."
                       (cons gnus-newsgroup-name article))
                 (set-buffer gnus-summary-buffer)
                 (setq gnus-current-article article)
                       (cons gnus-newsgroup-name article))
                 (set-buffer gnus-summary-buffer)
                 (setq gnus-current-article article)
-               (if (memq article gnus-newsgroup-undownloaded)
+               (if (and (memq article gnus-newsgroup-undownloaded)
+                        (not (gnus-online (gnus-find-method-for-group
+                                           gnus-newsgroup-name))))
                     (progn
                       (gnus-summary-set-agent-mark article)
                       (message "Message marked for downloading"))
                     (progn
                       (gnus-summary-set-agent-mark article)
                       (message "Message marked for downloading"))
@@ -3723,13 +3802,14 @@ General format specifiers can also be used.  See Info node
      (gnus-mime-view-part-as-charset "C" "View As charset...")
      (gnus-mime-save-part "o" "Save...")
      (gnus-mime-save-part-and-strip "\C-o" "Save and Strip")
      (gnus-mime-view-part-as-charset "C" "View As charset...")
      (gnus-mime-save-part "o" "Save...")
      (gnus-mime-save-part-and-strip "\C-o" "Save and Strip")
+    (gnus-mime-delete-part "d" "Delete part")
      (gnus-mime-copy-part "c" "View As Text, In Other Buffer")
      (gnus-mime-inline-part "i" "View As Text, In This Buffer")
      (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-copy-part "c" "View As Text, In Other Buffer")
      (gnus-mime-inline-part "i" "View As Text, In This Buffer")
      (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-action-on-part "." "Take action on the part...")))
  
  (defun gnus-article-mime-part-status ()
    (if gnus-article-mime-handle-alist-1
  
  (defun gnus-article-mime-part-status ()
    (if gnus-article-mime-handle-alist-1
@@ -3749,21 +3829,38 @@ General format specifiers can also be used.  See Info node
        (define-key map (cadr c) (car c)))
      map))
  
        (define-key map (cadr c) (car c)))
      map))
  
-(defun gnus-mime-button-menu (event)
-  "Construct a context-sensitive menu of MIME commands."
-  (interactive "e")
-  (save-window-excursion
-    (let ((pos (event-start event)))
-      (select-window (posn-window pos))
-      (goto-char (posn-point pos))
-      (gnus-article-check-buffer)
-      (let ((response (x-popup-menu
-                      t `("MIME Part"
-                          ("" ,@(mapcar (lambda (c)
-                                          (cons (caddr c) (car c)))
-                                        gnus-mime-button-commands))))))
-       (if response
-           (call-interactively response))))))
+(easy-menu-define
+  gnus-mime-button-menu gnus-mime-button-map "MIME button menu."
+  `("MIME Part"
+    ,@(mapcar (lambda (c)
+               (vector (caddr c) (car c) :enable t))
+             gnus-mime-button-commands)))
+
+(eval-when-compile
+  (define-compiler-macro popup-menu (&whole form
+                                           menu &optional position prefix)
+    (if (and (fboundp 'popup-menu)
+            (not (memq 'popup-menu (assoc "lmenu" load-history))))
+       form
+      ;; Gnus is probably running under Emacs 20.
+      `(let* ((menu (cdr ,menu))
+             (response (x-popup-menu
+                        t (list (car menu)
+                                (cons "" (mapcar (lambda (c)
+                                                   (cons (caddr c) (car c)))
+                                                 (cdr menu)))))))
+        (if response
+            (call-interactively (nth 3 (assq response menu))))))))
+
+(defun gnus-mime-button-menu (event prefix)
+ "Construct a context-sensitive menu of MIME commands."
+ (interactive "e\nP")
+ (save-window-excursion
+   (let ((pos (event-start event)))
+     (select-window (posn-window pos))
+     (goto-char (posn-point pos))
+     (gnus-article-check-buffer)
+     (popup-menu gnus-mime-button-menu nil prefix))))
  
  (defun gnus-mime-view-all-parts (&optional handles)
    "View all the MIME parts."
  
  (defun gnus-mime-view-all-parts (&optional handles)
    "View all the MIME parts."
@@ -3825,9 +3922,7 @@ General format specifiers can also be used.  See Info node
              (let ((mbl1 mml-buffer-list))
                (setq mml-buffer-list mbl)
                (set (make-local-variable 'mml-buffer-list) mbl1))
              (let ((mbl1 mml-buffer-list))
                (setq mml-buffer-list mbl)
                (set (make-local-variable 'mml-buffer-list) mbl1))
-            ;; LOCAL argument of add-hook differs between GNU Emacs
-            ;; and XEmacs. make-local-hook makes sure they are local.
-            (make-local-hook 'kill-buffer-hook)
+            (gnus-make-local-hook 'kill-buffer-hook)
              (add-hook 'kill-buffer-hook 'mml-destroy-buffers t t)))
         `(lambda (no-highlight)
           (let ((mail-parse-charset (or gnus-article-charset
              (add-hook 'kill-buffer-hook 'mml-destroy-buffers t t)))
         `(lambda (no-highlight)
           (let ((mail-parse-charset (or gnus-article-charset
@@ -3847,6 +3942,88 @@ General format specifiers can also be used.  See Info node
            ,(gnus-group-read-only-p)
            ,gnus-summary-buffer no-highlight))))))
  
            ,(gnus-group-read-only-p)
            ,gnus-summary-buffer no-highlight))))))
  
+(defun gnus-mime-delete-part ()
+  "Delete the MIME part under point.
+Replace it with some information about the removed part."
+  (interactive)
+  (gnus-article-check-buffer)
+  (unless (and gnus-novice-user
+              (not (gnus-yes-or-no-p
+                    "Really delete attachment forever? ")))
+    (let* ((data (get-text-property (point) 'gnus-data))
+          (handles gnus-article-mime-handles)
+          (none "(none)")
+          (description
+           (or
+            (mail-decode-encoded-word-string (or (mm-handle-description data)
+                                                 none))))
+          (filename
+           (or (mail-content-type-get (mm-handle-disposition data) 'filename)
+               none))
+          (type (mm-handle-media-type data)))
+      (if (mm-multiple-handles gnus-article-mime-handles)
+         (error "This function is not implemented"))
+      (with-current-buffer (mm-handle-buffer data)
+       (let ((bsize (format "%s" (buffer-size))))
+         (erase-buffer)
+         (insert
+          (concat
+           "<#part type=text/plain nofile=yes disposition=attachment"
+           " description=\"Deleted attachment (" bsize " Byte)\">"
+           ",----\n"
+           "| The following attachment has been deleted:\n"
+           "|\n"
+           "| Type:           " type "\n"
+           "| Filename:       " filename "\n"
+           "| Size (encoded): " bsize " Byte\n"
+           "| Description:    " description "\n"
+           "`----\n"
+           "<#/part>"))
+         (setcdr data
+                 (cdr (mm-make-handle nil `("text/plain"))))))
+      (set-buffer gnus-summary-buffer)
+      ;; FIXME: maybe some of the following code (borrowed from
+      ;; `gnus-mime-save-part-and-strip') isn't necessary?
+      (gnus-article-edit-article
+       `(lambda ()
+         (erase-buffer)
+         (let ((mail-parse-charset (or gnus-article-charset
+                                       ',gnus-newsgroup-charset))
+               (mail-parse-ignored-charsets
+                (or gnus-article-ignored-charsets
+                    ',gnus-newsgroup-ignored-charsets))
+               (mbl mml-buffer-list))
+           (setq mml-buffer-list nil)
+           (insert-buffer gnus-original-article-buffer)
+           (mime-to-mml ',handles)
+           (setq gnus-article-mime-handles nil)
+           (let ((mbl1 mml-buffer-list))
+             (setq mml-buffer-list mbl)
+             (set (make-local-variable 'mml-buffer-list) mbl1))
+           (gnus-make-local-hook 'kill-buffer-hook)
+           (add-hook 'kill-buffer-hook 'mml-destroy-buffers t t)))
+       `(lambda (no-highlight)
+         (let ((mail-parse-charset (or gnus-article-charset
+                                       ',gnus-newsgroup-charset))
+               (message-options message-options)
+               (message-options-set-recipient)
+               (mail-parse-ignored-charsets
+                (or gnus-article-ignored-charsets
+                    ',gnus-newsgroup-ignored-charsets)))
+           (mml-to-mime)
+           (mml-destroy-buffers)
+           (remove-hook 'kill-buffer-hook
+                        'mml-destroy-buffers t)
+           (kill-local-variable 'mml-buffer-list))
+         (gnus-summary-edit-article-done
+          ,(or (mail-header-references gnus-current-headers) "")
+          ,(gnus-group-read-only-p)
+          ,gnus-summary-buffer no-highlight)))))
+  ;; Not in `gnus-mime-save-part-and-strip':
+  (gnus-article-edit-done)
+  (gnus-summary-expand-window)
+  (gnus-summary-show-article))
+
  (defun gnus-mime-save-part ()
    "Save the MIME part under point."
    (interactive)
  (defun gnus-mime-save-part ()
    "Save the MIME part under point."
    (interactive)
@@ -3938,7 +4115,9 @@ The uncompress method used is derived from `buffer-file-name'."
              (jka-compr-delete-temp-file err-file)))))))
  
  (defun gnus-mime-copy-part (&optional handle)
              (jka-compr-delete-temp-file err-file)))))))
  
  (defun gnus-mime-copy-part (&optional handle)
-  "Put the MIME part under point into a new buffer."
+  "Put the MIME part under point into a new buffer.
+If `auto-compression-mode' is enabled, compressed files like .gz and .bz2
+are decompressed."
    (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)))
@@ -3970,13 +4149,12 @@ The uncompress method used is derived from `buffer-file-name'."
    (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)))
    (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")))
+        (printer (mailcap-mime-info (mm-handle-media-type handle) "print")))
      (when contents
         (if printer
             (unwind-protect
                 (progn
      (when contents
         (if printer
             (unwind-protect
                 (progn
-                 (with-temp-file file
-                   (insert contents))
+                 (mm-save-part-to-file handle file)
                   (call-process shell-file-name nil
                                 (generate-new-buffer " *mm*")
                                 nil
                   (call-process shell-file-name nil
                                 (generate-new-buffer " *mm*")
                                 nil
@@ -4069,7 +4247,8 @@ If no internal viewer is available, use an external viewer."
          (mail-parse-charset gnus-newsgroup-charset)
          (mail-parse-ignored-charsets
           (save-excursion (set-buffer gnus-summary-buffer)
          (mail-parse-charset gnus-newsgroup-charset)
          (mail-parse-ignored-charsets
           (save-excursion (set-buffer gnus-summary-buffer)
-                         gnus-newsgroup-ignored-charsets)))
+                         gnus-newsgroup-ignored-charsets))
+        buffer-read-only)
      (when handle
        (if (mm-handle-undisplayer handle)
           (mm-remove-part handle)
      (when handle
        (if (mm-handle-undisplayer handle)
           (mm-remove-part handle)
@@ -4078,7 +4257,7 @@ If no internal viewer is available, use an external viewer."
  (defun gnus-mime-action-on-part (&optional action)
    "Do something with the MIME attachment at \(point\)."
    (interactive
  (defun gnus-mime-action-on-part (&optional action)
    "Do something with the MIME attachment at \(point\)."
    (interactive
-   (list (completing-read "Action: " gnus-mime-action-alist)))
+   (list (completing-read "Action: " gnus-mime-action-alist nil t)))
    (gnus-article-check-buffer)
    (let ((action-pair (assoc action gnus-mime-action-alist)))
      (if action-pair
    (gnus-article-check-buffer)
    (let ((action-pair (assoc action gnus-mime-action-alist)))
      (if action-pair
@@ -4211,16 +4390,14 @@ If no internal viewer is available, use an external viewer."
               (if (window-live-p window)
                   (select-window window)))))
        (goto-char point)
               (if (window-live-p window)
                   (select-window window)))))
        (goto-char point)
-      (delete-region (gnus-point-at-bol) (progn (forward-line 1) (point)))
+      (gnus-delete-line)
        (gnus-insert-mime-button
         handle id (list (mm-handle-displayed-p handle)))
        (goto-char point))))
  
  (defun gnus-article-goto-part (n)
    "Go to MIME part N."
        (gnus-insert-mime-button
         handle id (list (mm-handle-displayed-p handle)))
        (goto-char point))))
  
  (defun gnus-article-goto-part (n)
    "Go to MIME part N."
-  (let ((point (text-property-any (point-min) (point-max) 'gnus-part n)))
-    (when point
-      (goto-char point))))
+  (gnus-goto-char (text-property-any (point-min) (point-max) 'gnus-part n)))
  
  (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
@@ -4256,7 +4433,10 @@ If no internal viewer is available, use an external viewer."
          gnus-part ,gnus-tmp-id
          article-type annotation
          gnus-data ,handle))
          gnus-part ,gnus-tmp-id
          article-type annotation
          gnus-data ,handle))
-    (setq e (point))
+    (setq e (if (bolp)
+               ;; Exclude a newline.
+               (1- (point))
+             (point)))
      (widget-convert-button
       'link b e
       :mime-handle handle
      (widget-convert-button
       'link b e
       :mime-handle handle
@@ -4299,9 +4479,10 @@ 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
-                                   nil gnus-article-loose-mime)
-                         (mm-uu-dissect)))
+      (let* ((handles (or ihandles
+                         (mm-dissect-buffer nil gnus-article-loose-mime)
+                         (and gnus-article-emulate-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))
@@ -4337,9 +4518,28 @@ If no internal viewer is available, use an external viewer."
               (narrow-to-region (point-min) (point))
               (gnus-treat-article 'head))))))))
  
               (narrow-to-region (point-min) (point))
               (gnus-treat-article 'head))))))))
  
-(defvar gnus-mime-display-multipart-as-mixed nil)
-(defvar gnus-mime-display-multipart-alternative-as-mixed nil)
-(defvar gnus-mime-display-multipart-related-as-mixed nil)
+(defcustom gnus-mime-display-multipart-as-mixed nil
+  "Display \"multipart\" parts as  \"multipart/mixed\".
+
+If t, it overrides nil values of
+`gnus-mime-display-multipart-alternative-as-mixed' and
+`gnus-mime-display-multipart-related-as-mixed'."
+  :group 'gnus-article-mime
+  :type 'boolean)
+
+(defcustom gnus-mime-display-multipart-alternative-as-mixed nil
+  "Display \"multipart/alternative\" parts as  \"multipart/mixed\"."
+  :group 'gnus-article-mime
+  :type 'boolean)
+
+(defcustom gnus-mime-display-multipart-related-as-mixed nil
+  "Display \"multipart/related\" parts as  \"multipart/mixed\".
+
+If displaying \"text/html\" is discouraged \(see
+`mm-discouraged-alternatives'\) images or other material inside a
+\"multipart/related\" part might be overlooked when this variable is nil."
+  :group 'gnus-article-mime
+  :type 'boolean)
  
  (defun gnus-mime-display-part (handle)
    (cond
  
  (defun gnus-mime-display-part (handle)
    (cond
@@ -4715,12 +4915,28 @@ If given a numerical ARG, move forward ARG pages."
      (goto-char (point-min))
      (gnus-article-read-summary-keys nil (gnus-character-to-event ?n))))
  
      (goto-char (point-min))
      (gnus-article-read-summary-keys nil (gnus-character-to-event ?n))))
  
+
  (defun gnus-article-goto-prev-page ()
    "Show the next page of the article."
    (interactive)
  (defun gnus-article-goto-prev-page ()
    "Show the next page of the article."
    (interactive)
-  (if (bobp) (gnus-article-read-summary-keys nil (gnus-character-to-event ?p))
+  (if (bobp)
+      (gnus-article-read-summary-keys nil (gnus-character-to-event ?p))
      (gnus-article-prev-page nil)))
  
      (gnus-article-prev-page nil)))
  
+;; This is cleaner but currently breaks `gnus-pick-mode':
+;;
+;; (defun gnus-article-goto-next-page ()
+;;   "Show the next page of the article."
+;;   (interactive)
+;;   (gnus-eval-in-buffer-window gnus-summary-buffer
+;;     (gnus-summary-next-page)))
+;;
+;; (defun gnus-article-goto-prev-page ()
+;;   "Show the next page of the article."
+;;   (interactive)
+;;   (gnus-eval-in-buffer-window gnus-summary-buffer
+;;     (gnus-summary-prev-page)))
+
  (defun gnus-article-next-page (&optional lines)
    "Show the next page of the current article.
  If end of article, return non-nil.  Otherwise return nil.
  (defun gnus-article-next-page (&optional lines)
    "Show the next page of the current article.
  If end of article, return non-nil.  Otherwise return nil.
@@ -4730,25 +4946,31 @@ Argument LINES specifies lines to be scrolled up."
    (if (save-excursion
         (end-of-line)
         (and (pos-visible-in-window-p)  ;Not continuation line.
    (if (save-excursion
         (end-of-line)
         (and (pos-visible-in-window-p)  ;Not continuation line.
-            (eobp)))
+            (>= (1+ (point)) (point-max)))) ;Allow for trailing newline.
        ;; Nothing in this page.
        (if (or (not gnus-page-broken)
               (save-excursion
                 (save-restriction
                   (widen) (forward-line 1) (eobp)))) ;Real end-of-buffer?
        ;; Nothing in this page.
        (if (or (not gnus-page-broken)
               (save-excursion
                 (save-restriction
                   (widen) (forward-line 1) (eobp)))) ;Real end-of-buffer?
-         t                             ;Nothing more.
+         (progn
+           (when gnus-article-over-scroll
+             (gnus-article-next-page-1 lines))
+           t)                  ;Nothing more.
         (gnus-narrow-to-page 1)         ;Go to next page.
         nil)
      ;; More in this page.
         (gnus-narrow-to-page 1)         ;Go to next page.
         nil)
      ;; More in this page.
-    (let ((scroll-in-place nil))
-      (condition-case ()
-         (scroll-up lines)
-       (end-of-buffer
-        ;; Long lines may cause an end-of-buffer error.
-        (goto-char (point-max)))))
-    (move-to-window-line 0)
+    (gnus-article-next-page-1 lines)
      nil))
  
      nil))
  
+(defun gnus-article-next-page-1 (lines)
+  (let ((scroll-in-place nil))
+    (condition-case ()
+       (scroll-up lines)
+      (end-of-buffer
+       ;; Long lines may cause an end-of-buffer error.
+       (goto-char (point-max)))))
+  (move-to-window-line 0))
+
  (defun gnus-article-prev-page (&optional lines)
    "Show previous page of current article.
  Argument LINES specifies lines to be scrolled down."
  (defun gnus-article-prev-page (&optional lines)
    "Show previous page of current article.
  Argument LINES specifies lines to be scrolled down."
@@ -4769,17 +4991,33 @@ Argument LINES specifies lines to be scrolled down."
              (goto-char (point-min))))
         (move-to-window-line 0)))))
  
              (goto-char (point-min))))
         (move-to-window-line 0)))))
  
+(defun gnus-article-only-boring-p ()
+  "Decide whether there is only boring text remaining in the article.
+Something \"interesting\" is a word of at least two letters that does
+not have a face in `gnus-article-boring-faces'."
+  (when (and gnus-article-skip-boring
+            (boundp 'gnus-article-boring-faces)
+            (symbol-value 'gnus-article-boring-faces))
+    (save-excursion
+      (catch 'only-boring
+       (while (re-search-forward "\\b\\w\\w" nil t)
+         (forward-char -1)
+         (when (not (gnus-intersection
+                     (gnus-faces-at (point))
+                     (symbol-value 'gnus-article-boring-faces)))
+           (throw 'only-boring nil)))
+       (throw 'only-boring t)))))
+
  (defun gnus-article-refer-article ()
    "Read article specified by message-id around point."
    (interactive)
  (defun gnus-article-refer-article ()
    "Read article specified by message-id around point."
    (interactive)
-  (let ((point (point)))
-    (search-forward ">" nil t)         ;Move point to end of "<....>".
-    (if (re-search-backward "\\(<[^<> \t\n]+>\\)" nil t)
-       (let ((message-id (match-string 1)))
-         (goto-char point)
+  (save-excursion
+    (re-search-backward "[ \t]\\|^" (gnus-point-at-bol) t)
+    (re-search-forward "<?news:<?\\|<" (gnus-point-at-eol) t)
+    (if (re-search-forward "[^@ ]+@[^ \t>]+" (gnus-point-at-eol) t)
+       (let ((msg-id (concat "<" (match-string 0) ">")))
           (set-buffer gnus-summary-buffer)
           (set-buffer gnus-summary-buffer)
-         (gnus-summary-refer-article message-id))
-      (goto-char (point))
+         (gnus-summary-refer-article msg-id))
        (error "No references around point"))))
  
  (defun gnus-article-show-summary ()
        (error "No references around point"))))
  
  (defun gnus-article-show-summary ()
@@ -4947,46 +5185,47 @@ Argument LINES specifies lines to be scrolled down."
  The text in the region will be yanked.  If the region isn't active,
  the entire article will be yanked."
    (interactive "P")
  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))
+  (let ((article (cdr gnus-article-current))
+       contents)
+    (if (not (gnus-mark-active-p))
         (with-current-buffer gnus-summary-buffer
           (gnus-summary-reply (list (list article)) wide))
         (with-current-buffer gnus-summary-buffer
           (gnus-summary-reply (list (list article)) wide))
-      (setq cont (buffer-substring (point) (mark t)))
+      (setq contents (buffer-substring (point) (mark t)))
        ;; Deactivate active regions.
        (when (and (boundp 'transient-mark-mode)
                  transient-mark-mode)
         (setq mark-active nil))
        (with-current-buffer gnus-summary-buffer
         (gnus-summary-reply
        ;; Deactivate active regions.
        (when (and (boundp 'transient-mark-mode)
                  transient-mark-mode)
         (setq mark-active nil))
        (with-current-buffer gnus-summary-buffer
         (gnus-summary-reply
-        (list (list article cont)) wide)))))
+        (list (list article contents)) 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)
  
  (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))
+  (let ((article (cdr gnus-article-current))
+       contents)
+      (if (not (gnus-mark-active-p))
           (with-current-buffer gnus-summary-buffer
             (gnus-summary-followup (list (list article))))
           (with-current-buffer gnus-summary-buffer
             (gnus-summary-followup (list (list article))))
-       (setq cont (buffer-substring (point) (mark t)))
+       (setq contents (buffer-substring (point) (mark t)))
         ;; Deactivate active regions.
         (when (and (boundp 'transient-mark-mode)
                    transient-mark-mode)
           (setq mark-active nil))
         (with-current-buffer gnus-summary-buffer
           (gnus-summary-followup
         ;; Deactivate active regions.
         (when (and (boundp 'transient-mark-mode)
                    transient-mark-mode)
           (setq mark-active nil))
         (with-current-buffer gnus-summary-buffer
           (gnus-summary-followup
-          (list (list article cont)))))))
+          (list (list article contents)))))))
  
  (defun gnus-article-hide (&optional arg force)
    "Hide all the gruft in the current article.
  
  (defun gnus-article-hide (&optional arg force)
    "Hide all the gruft in the current article.
-This means that PGP stuff, signatures, cited text and (some)
-headers will be hidden.
+This means that signatures, cited text and (some) headers will be
+hidden.
  If given a prefix, show the hidden text instead."
    (interactive (append (gnus-article-hidden-arg) (list 'force)))
    (gnus-article-hide-headers arg)
    (gnus-article-hide-list-identifiers arg)
  If given a prefix, show the hidden text instead."
    (interactive (append (gnus-article-hidden-arg) (list 'force)))
    (gnus-article-hide-headers arg)
    (gnus-article-hide-list-identifiers arg)
-  (gnus-article-hide-pgp arg)
    (gnus-article-hide-citation-maybe arg force)
    (gnus-article-hide-signature arg))
  
    (gnus-article-hide-citation-maybe arg force)
    (gnus-article-hide-signature arg))
  
@@ -5097,9 +5336,7 @@ If given a prefix, show the hidden text instead."
                  (gnus-cache-request-article article group))
             'article)
            ;; Check the agent cache.
                  (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))
+          ((gnus-agent-request-article article group)
             'article)
            ;; Get the article and put into the article buffer.
            ((or (stringp article)
             'article)
            ;; Get the article and put into the article buffer.
            ((or (stringp article)
@@ -5221,7 +5458,7 @@ If given a prefix, show the hidden text instead."
      "\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-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-f\C-a" message-generate-unsubscribed-mail-followup-to
      "\C-c\C-b" message-goto-body
      "\C-c\C-i" message-goto-signature
  
      "\C-c\C-b" message-goto-body
      "\C-c\C-i" message-goto-signature
  
@@ -5380,20 +5617,14 @@ groups."
  
  (defcustom gnus-button-url-regexp
    (if (string-match "[[:digit:]]" "1") ;; support POSIX?
  
  (defcustom gnus-button-url-regexp
    (if (string-match "[[:digit:]]" "1") ;; support POSIX?
-      "\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\|info\\):\\)\\(//[-a-z0-9_.]+:[0-9]*\\)?[-a-z0-9_=!?#$@~`%&*+|\\/:;.,[:word:]]+[-a-z0-9_=#$@~`%&*+|\\/[:word:]]\\)"
-    "\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\|info\\):\\)\\(//[-a-z0-9_.]+:[0-9]*\\)?\\([-a-z0-9_=!?#$@~`%&*+|\\/:;.,]\\|\\w\\)+\\([-a-z0-9_=#$@~`%&*+|\\/]\\|\\w\\)\\)")
+      "\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|nntp\\|news\\|telnet\\|wais\\|mailto\\|info\\):\\)\\(//[-a-z0-9_.]+:[0-9]*\\)?[-a-z0-9_=!?#$@~%&*+\\/:;.,[:word:]]+[-a-z0-9_=#$@~%&*+\\/[:word:]]\\)"
+    "\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|nntp\\|news\\|telnet\\|wais\\|mailto\\|info\\):\\)\\(//[-a-z0-9_.]+:[0-9]*\\)?\\([-a-z0-9_=!?#$@~%&*+\\/:;.,]\\|\\w\\)+\\([-a-z0-9_=#$@~%&*+\\/]\\|\\w\\)\\)")
    "Regular expression that matches URLs."
    :group 'gnus-article-buttons
    :type 'regexp)
  
  (defcustom gnus-button-valid-fqdn-regexp
    "Regular expression that matches URLs."
    :group 'gnus-article-buttons
    :type 'regexp)
  
  (defcustom gnus-button-valid-fqdn-regexp
-  (concat "[a-z0-9][-.a-z0-9]+\\." ;; [hostname.subdomain.]domain.
-         ;; valid TLDs:
-         "\\([a-z][a-z]" ;; two letter country TDLs
-         "\\|biz\\|com\\|edu\\|gov\\|int\\|mil\\|net\\|org"
-         "\\|aero\\|coop\\|info\\|name\\|museum"
-         "\\|arpa\\|pro\\|uucp\\|bitnet\\|bofh" ;; old style?
-         "\\)")
+  message-valid-fqdn-regexp
    "Regular expression that matches a valid FQDN."
    :group 'gnus-article-buttons
    :type 'regexp)
    "Regular expression that matches a valid FQDN."
    :group 'gnus-article-buttons
    :type 'regexp)
@@ -5432,6 +5663,18 @@ The function must take one argument, the string naming the URL."
    :type '(choice (const "^/?tex-archive/\\|/")
                  (regexp :tag "Other")))
  
    :type '(choice (const "^/?tex-archive/\\|/")
                  (regexp :tag "Other")))
  
+(defcustom gnus-button-ctan-directory-regexp
+  (concat
+   "\\("; Cannot use `\(?: ... \)' (compatibility with Emacs 20).
+   "biblio\\|digests\\|dviware\\|fonts\\|graphics\\|help\\|"
+   "indexing\\|info\\|language\\|macros\\|support\\|systems\\|"
+   "tds\\|tools\\|usergrps\\|web\\|nonfree\\|obsolete"
+   "\\)")
+  "Regular expression for ctan directories.
+It should match all directories in the top level of `gnus-ctan-url'."
+  :group 'gnus-article-buttons
+  :type 'regexp)
+
  (defcustom gnus-button-mid-or-mail-regexp
    (concat "\\b\\(<?[a-z0-9][^<>\")!;:,{}\n\t ]*@"
           gnus-button-valid-fqdn-regexp
  (defcustom gnus-button-mid-or-mail-regexp
    (concat "\\b\\(<?[a-z0-9][^<>\")!;:,{}\n\t ]*@"
           gnus-button-valid-fqdn-regexp
@@ -5440,57 +5683,173 @@ The function must take one argument, the string naming the URL."
    :group 'gnus-article-buttons
    :type 'regexp)
  
    :group 'gnus-article-buttons
    :type 'regexp)
  
-(defcustom gnus-button-prefer-mid-or-mail 'guess
-  "What to do when the button on a string as \"foo123@bar.com\" is pushed.
-Strings like this can be either a message ID or a mail address.  If the
-variable is set to the symbol `ask', query the user what do do.  If it is the
-symbol `guess', Gnus will do a guess and query the user what do do if it is
-ambiguous.  See the variable `gnus-button-guessed-mid-regexp' for details
-concerning the guessing.  If it is one of the sybols `mid' or `mail', Gnus
-will always assume that the string is a message ID or a mail address,
-respectivly."
-  ;; FIXME: doc-string could/should be improved.
+(defcustom gnus-button-prefer-mid-or-mail 'gnus-button-mid-or-mail-heuristic
+  "What to do when the button on a string as \"foo123@bar.invalid\" is pushed.
+Strings like this can be either a message ID or a mail address.  If it is one
+of the symbols `mid' or `mail', Gnus will always assume that the string is a
+message ID or a mail address, respectively.  If this variable is set to the
+symbol `ask', always query the user what do do.  If it is a function, this
+function will be called with the string as it's only argument.  The function
+must return `mid', `mail', `invalid' or `ask'."
    :group 'gnus-article-buttons
    :group 'gnus-article-buttons
-  :type '(choice (const ask)
-                (const guess)
+  :type '(choice (function-item :tag "Heuristic function"
+                               gnus-button-mid-or-mail-heuristic)
+                (const ask)
                  (const mid)
                  (const mail)))
  
                  (const mid)
                  (const mail)))
  
-(defcustom gnus-button-guessed-mid-regexp
-  (concat
-   "^<?\\(slrn\\|Pine\\.\\)"
-   "\\|\\.fsf@\\|\\.fsf_-_@\\|\\.ln@"
-   "\\|@4ax\\.com\\|@ID-[0-9]+\\.[a-zA-Z]+\\.dfncis\\.de"
-         "\\|^<?.*[0-9].*[0-9].*[0-9].*[0-9].*[0-9].*[0-9].*@")
-  "Regular expression that matches message IDs and not mail addresses."
-  ;; TODO: Incorporate more matches from
-  ;; <URL:http://piology.org/perl/id-or-mail.pl.html>. I.e. translate the
-  ;; Perl-REs to Elisp-REs.
+(defcustom gnus-button-mid-or-mail-heuristic-alist
+  '((-10.0 . ".+\\$.+@")
+    (-10.0 . "#")
+    (-10.0 . "\\*")
+    (-5.0  . "\\+[^+]*\\+.*@") ;; # two plus signs
+    (-5.0  . "@[Nn][Ee][Ww][Ss]") ;; /\@news/i
+    (-5.0  . "@.*[Dd][Ii][Aa][Ll][Uu][Pp]") ;; /\@.*dialup/i;
+    (-1.0  . "^[^a-z]+@")
+    ;;
+    (-5.0  . "\\.[0-9][0-9]+.*@") ;; "\.[0-9]{2,}.*\@"
+    (-5.0  . "[a-z].*[A-Z].*[a-z].*[A-Z].*@") ;; "([a-z].*[A-Z].*){2,}\@"
+    (-3.0  . "[A-Z][A-Z][a-z][a-z].*@")
+    (-5.0  . "\\...?.?@") ;; (-5.0 . "\..{1,3}\@")
+    ;;
+    (-2.0  . "^[0-9]")
+    (-1.0  . "^[0-9][0-9]")
+    ;;
+    ;; -3.0 /^[0-9][0-9a-fA-F]{2,2}/;
+    (-3.0  . "^[0-9][0-9a-fA-F][0-9a-fA-F][^0-9a-fA-F]")
+    ;; -5.0 /^[0-9][0-9a-fA-F]{3,3}/;
+    (-5.0  . "^[0-9][0-9a-fA-F][0-9a-fA-F][0-9a-fA-F][^0-9a-fA-F]")
+    ;;
+    (-3.0  .  "[0-9][0-9][0-9][0-9][0-9][^0-9].*@") ;; "[0-9]{5,}.*\@"
+    (-3.0  .  "[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][^0-9].*@")
+    ;;       "[0-9]{8,}.*\@"
+    (-3.0
+     . "[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9].*@")
+    ;; "[0-9]{12,}.*\@"
+    ;; compensation for TDMA dated mail addresses:
+    (25.0  . "-dated-[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]+.*@")
+    ;;
+    (-20.0 . "\\.fsf@")        ;; Gnus
+    (-20.0 . "^slrn")
+    (-20.0 . "^Pine")
+    (-20.0 . "_-_") ;; Subject change in thread
+    ;;
+    (-20.0 . "\\.ln@") ;; leafnode
+    (-30.0 . "@ID-[0-9]+\\.[a-zA-Z]+\\.dfncis\\.de")
+    (-30.0 . "@4[Aa][Xx]\\.com") ;; Forte Agent
+    ;;
+    ;; (5.0 . "") ;; $local_part_len <= 7
+    (10.0  . "^[^0-9]+@")
+    (3.0   . "^[^0-9]+[0-9][0-9]?[0-9]?@")
+    ;;      ^[^0-9]+[0-9]{1,3}\@ digits only at end of local part
+    (3.0   . "\@stud")
+    ;;
+    (2.0   . "[a-z][a-z][._-][A-Z][a-z].*@")
+    ;;
+    (0.5   . "^[A-Z][a-z]")
+    (0.5   . "^[A-Z][a-z][a-z]")
+    (1.5   . "^[A-Z][a-z][A-Z][a-z][^a-z]") ;; ^[A-Z][a-z]{3,3}
+    (2.0   . "^[A-Z][a-z][A-Z][a-z][a-z][^a-z]")) ;; ^[A-Z][a-z]{4,4}
+  "An alist of \(RATE . REGEXP\) pairs for `gnus-button-mid-or-mail-heuristic'.
+
+A negative RATE indicates a message IDs, whereas a positive indicates a mail
+address.  The REGEXP is processed with `case-fold-search' set to nil."
    :group 'gnus-article-buttons
    :group 'gnus-article-buttons
-  :type 'regexp)
+  :type '(repeat (cons (number :tag "Rate")
+                      (regexp :tag "Regexp"))))
+
+(defun gnus-button-mid-or-mail-heuristic (mid-or-mail)
+  "Guess whether MID-OR-MAIL is a message ID or a mail address.
+Returns `mid' if MID-OR-MAIL is a message IDs, `mail' if it's a mail
+address, `ask' if unsure and `invalid' if the string is invalid."
+  (let ((case-fold-search nil)
+       (list gnus-button-mid-or-mail-heuristic-alist)
+       (result 0) rate regexp lpartlen elem)
+    (setq lpartlen
+         (length (gnus-replace-in-string mid-or-mail "^\\(.*\\)@.*$" "\\1")))
+    (gnus-message 8 "`%s', length of local part=`%s'." mid-or-mail lpartlen)
+    ;; Certain special cases...
+    (when (string-match
+          (concat
+           "^0[0-9]+-[0-9][0-9][0-9][0-9]@t-online\\.de$" "\\|"
+           "^[0-9]+\.[0-9]+\@compuserve")
+          mid-or-mail)
+      (gnus-message 8 "`%s' is a known mail address.")
+      (setq result 'mail))
+    (when (string-match "@.*@\\| " mid-or-mail)
+      (gnus-message 8 "`%s' is invalid.")
+      (setq result 'invalid))
+    ;; Nothing more to do, if result is not a number here...
+    (when (numberp result)
+      (while list
+       (setq elem (car list)
+             rate (car elem)
+             regexp (cdr elem)
+             list (cdr list))
+       (when (string-match regexp mid-or-mail)
+         (setq result (+ result rate))
+         (gnus-message
+          9 "`%s' matched `%s', rate `%s', result `%s'."
+          mid-or-mail regexp rate result)))
+      (when (<= lpartlen 7)
+       (setq result (+ result 5.0))
+       (gnus-message 9 "`%s' matched (<= lpartlen 7), result `%s'."
+                     mid-or-mail result))
+      (when (>= lpartlen 12)
+       (gnus-message 9 "`%s' matched (>= lpartlen 12)" mid-or-mail)
+       (cond
+        ((string-match "[0-9][^0-9]+[0-9].*@" mid-or-mail)
+         ;; Long local part should contain realname if e-mail address,
+         ;; too many digits: message-id.
+         ;; $score -= 5.0 + 0.1 * $local_part_len;
+         (setq rate (* -1.0 (+ 5.0 (* 0.1 lpartlen))))
+         (setq result (+ result rate))
+         (gnus-message
+          9 "Many digits in `%s', rate `%s', result `%s'."
+          mid-or-mail rate result))
+        ((string-match "[^aeiouy][^aeiouy][^aeiouy][^aeiouy]+.*\@"
+                       mid-or-mail)
+         ;; Too few vowels [^aeiouy]{4,}.*\@
+         (setq result (+ result -5.0))
+         (gnus-message
+          9 "Few vowels in `%s', rate `%s', result `%s'."
+          mid-or-mail -5.0 result))
+        (t
+         (setq result (+ result 5.0))
+         (gnus-message
+          9 "`%s', rate `%s', result `%s'." mid-or-mail 5.0 result)))))
+    (gnus-message 8 "`%s': Final rate is `%s'." mid-or-mail result)
+    (cond
+     ;; Maybe we should make this a customizable alist: (condition . 'result)
+     ((< result -10.0) 'mid)
+     ((> result  10.0) 'mail)
+     (t 'ask))))
  
  (defun gnus-button-handle-mid-or-mail (mid-or-mail)
  
  (defun gnus-button-handle-mid-or-mail (mid-or-mail)
-  (let* ((pref gnus-button-prefer-mid-or-mail)
+  (let* ((pref gnus-button-prefer-mid-or-mail) guessed
          (url-mid (concat "news" ":" mid-or-mail))
          (url-mailto (concat "mailto" ":" mid-or-mail)))
      (gnus-message 9 "mid-or-mail=%s" mid-or-mail)
          (url-mid (concat "news" ":" mid-or-mail))
          (url-mailto (concat "mailto" ":" mid-or-mail)))
      (gnus-message 9 "mid-or-mail=%s" mid-or-mail)
-    ;; If it looks like a MID (well known readers or servers) use 'mid,
-    ;; otherwise 'ask the user.
-    (if (eq pref 'guess)
-       (if (string-match gnus-button-guessed-mid-regexp mid-or-mail)
-           (setq pref 'mid)
-         (setq pref 'ask)))
+    (when (fboundp pref)
+      (setq guessed
+           ;; get rid of surrounding angles...
+           (funcall pref
+                    (gnus-replace-in-string mid-or-mail "^<\\|>$" "")))
+      (if (or (eq 'mid guessed) (eq 'mail guessed))
+         (setq pref guessed)
+       (setq pref 'ask)))
      (if (eq pref 'ask)
         (save-window-excursion
           (if (y-or-n-p (concat "Is <" mid-or-mail "> a mail address? "))
               (setq pref 'mail)
             (setq pref 'mid))))
      (cond ((eq pref 'mid)
      (if (eq pref 'ask)
         (save-window-excursion
           (if (y-or-n-p (concat "Is <" mid-or-mail "> a mail address? "))
               (setq pref 'mail)
             (setq pref 'mid))))
      (cond ((eq pref 'mid)
-          (gnus-message 9 "calling `gnus-button-handle-news' %s" url-mid)
+          (gnus-message 8 "calling `gnus-button-handle-news' %s" url-mid)
            (gnus-button-handle-news url-mid))
           ((eq pref 'mail)
            (gnus-button-handle-news url-mid))
           ((eq pref 'mail)
-          (gnus-message 9 "calling `gnus-url-mailto'  %s" url-mailto)
-          (gnus-url-mailto url-mailto)))))
+          (gnus-message 8 "calling `gnus-url-mailto'  %s" url-mailto)
+          (gnus-url-mailto url-mailto))
+         (t (gnus-message 3 "Invalid string.")))))
  
  (defun gnus-button-handle-custom (url)
    "Follow a Custom URL."
  
  (defun gnus-button-handle-custom (url)
    "Follow a Custom URL."
@@ -5498,45 +5857,69 @@ respectivly."
  
  (defvar gnus-button-handle-describe-prefix "^\\(C-h\\|<?[Ff]1>?\\)")
  
  
  (defvar gnus-button-handle-describe-prefix "^\\(C-h\\|<?[Ff]1>?\\)")
  
+;; FIXME: Maybe we should merge some of the functions that do quite similar
+;; stuff?
+
  (defun gnus-button-handle-describe-function (url)
  (defun gnus-button-handle-describe-function (url)
-  "Call describe-function when pushing the corresponding URL button."
+  "Call `describe-function' when pushing the corresponding URL button."
    (describe-function
     (intern
      (gnus-replace-in-string url gnus-button-handle-describe-prefix ""))))
  
  (defun gnus-button-handle-describe-variable (url)
    (describe-function
     (intern
      (gnus-replace-in-string url gnus-button-handle-describe-prefix ""))))
  
  (defun gnus-button-handle-describe-variable (url)
-  "Call describe-variable when pushing the corresponding URL button."
+  "Call `describe-variable' when pushing the corresponding URL button."
    (describe-variable
     (intern
      (gnus-replace-in-string url gnus-button-handle-describe-prefix ""))))
  
    (describe-variable
     (intern
      (gnus-replace-in-string url gnus-button-handle-describe-prefix ""))))
  
-;; FIXME: Is is possible to implement this?  Else it should be removed here
-;; and in `gnus-button-alist'.
+(defun gnus-button-handle-symbol (url)
+"Display help on variable or function.
+Calls `describe-variable' or `describe-function'."
+  (let ((sym (intern url)))
+    (cond
+     ((fboundp sym) (describe-function sym))
+     ((boundp sym) (describe-variable sym))
+     (t (gnus-message 3 "`%s' is not a known function of variable." url)))))
+
  (defun gnus-button-handle-describe-key (url)
  (defun gnus-button-handle-describe-key (url)
-  "Call describe-key when pushing the corresponding URL button."
-  (error "not implemented"))
+  "Call `describe-key' when pushing the corresponding URL button."
+  (let* ((key-string
+         (gnus-replace-in-string url gnus-button-handle-describe-prefix ""))
+        (keys (ignore-errors (eval `(kbd ,key-string)))))
+    (if keys
+       (describe-key keys)
+      (gnus-message 3 "Invalid key sequence in button: %s" key-string))))
  
  (defun gnus-button-handle-apropos (url)
  
  (defun gnus-button-handle-apropos (url)
-  "Call apropos when pushing the corresponding URL button."
+  "Call `apropos' when pushing the corresponding URL button."
    (apropos (gnus-replace-in-string url gnus-button-handle-describe-prefix "")))
  
  (defun gnus-button-handle-apropos-command (url)
    (apropos (gnus-replace-in-string url gnus-button-handle-describe-prefix "")))
  
  (defun gnus-button-handle-apropos-command (url)
-  "Call apropos when pushing the corresponding URL button."
+  "Call `apropos' when pushing the corresponding URL button."
    (apropos-command
     (gnus-replace-in-string url gnus-button-handle-describe-prefix "")))
  
  (defun gnus-button-handle-apropos-variable (url)
    (apropos-command
     (gnus-replace-in-string url gnus-button-handle-describe-prefix "")))
  
  (defun gnus-button-handle-apropos-variable (url)
-  "Call apropos when pushing the corresponding URL button."
+  "Call `apropos' when pushing the corresponding URL button."
    (funcall
     (if (fboundp 'apropos-variable) 'apropos-variable 'apropos)
     (gnus-replace-in-string url gnus-button-handle-describe-prefix "")))
  
  (defun gnus-button-handle-apropos-documentation (url)
    (funcall
     (if (fboundp 'apropos-variable) 'apropos-variable 'apropos)
     (gnus-replace-in-string url gnus-button-handle-describe-prefix "")))
  
  (defun gnus-button-handle-apropos-documentation (url)
-  "Call apropos when pushing the corresponding URL button."
+  "Call `apropos' when pushing the corresponding URL button."
    (funcall
     (if (fboundp 'apropos-documentation) 'apropos-documentation 'apropos)
     (gnus-replace-in-string url gnus-button-handle-describe-prefix "")))
  
    (funcall
     (if (fboundp 'apropos-documentation) 'apropos-documentation 'apropos)
     (gnus-replace-in-string url gnus-button-handle-describe-prefix "")))
  
+(defun gnus-button-handle-library (url)
+  "Call `locate-library' when pushing the corresponding URL button."
+  (gnus-message 9 "url=`%s'" url)
+  (let* ((lib (locate-library url))
+        (file (gnus-replace-in-string (or lib "") "\.elc" ".el")))
+    (if (not lib)
+       (gnus-message 1 "Cannot locale library `%s'." url)
+      (find-file-read-only file))))
+
  (defun gnus-button-handle-ctan (url)
    "Call `browse-url' when pushing a CTAN URL button."
    (funcall
  (defun gnus-button-handle-ctan (url)
    "Call `browse-url' when pushing a CTAN URL button."
    (funcall
@@ -5578,36 +5961,64 @@ probably a good idea.  See Info node `(gnus)Group Parameters' and the variable
    :link '(custom-manual "(gnus)Group Parameters")
    :type 'integer)
  
    :link '(custom-manual "(gnus)Group Parameters")
    :type 'integer)
  
-(defcustom gnus-button-mail-level 5
-  "*Integer that says how many buttons for message IDs or mail addresses will appear.
+(defcustom gnus-button-message-level 5
+  "*Integer that says how many buttons for news or mail messages will appear.
+The higher the number, the more buttons will appear and the more false
+positives are possible."
+  ;; mail addresses, MIDs, URLs for news, ...
+  :group 'gnus-article-buttons
+  :type 'integer)
+
+(defcustom gnus-button-browse-level 5
+  "*Integer that says how many buttons for browsing will appear.
  The higher the number, the more buttons will appear and the more false
  positives are possible."
  The higher the number, the more buttons will appear and the more false
  positives are possible."
+  ;; stuff handled by `browse-url' or `gnus-button-embedded-url'
    :group 'gnus-article-buttons
    :type 'integer)
  
  (defcustom gnus-button-alist
    '(("<\\(url:[>\n\t ]*?\\)?\\(nntp\\|news\\):[>\n\t ]*\\([^>\n\t ]*@[^>\n\t ]*\\)>"
    :group 'gnus-article-buttons
    :type 'integer)
  
  (defcustom gnus-button-alist
    '(("<\\(url:[>\n\t ]*?\\)?\\(nntp\\|news\\):[>\n\t ]*\\([^>\n\t ]*@[^>\n\t ]*\\)>"
-     0 t gnus-button-handle-news 3)
+     0 (>= gnus-button-message-level 0) gnus-button-handle-news 3)
      ("\\b\\(nntp\\|news\\):\\([^>\n\t ]*@[^>)!;:,\n\t ]*\\)" 0 t
       gnus-button-handle-news 2)
      ("\\b\\(nntp\\|news\\):\\([^>\n\t ]*@[^>)!;:,\n\t ]*\\)" 0 t
       gnus-button-handle-news 2)
-    ("\\(\\b<\\(url:[>\n\t ]*\\)?news:[>\n\t ]*\\(//\\)?\\([^>\n\t ]*\\)>\\)"
-     1 t
-     gnus-button-fetch-group 4)
-    ("\\bnews:\\(//\\)?\\([^'\">\n\t ]+\\)" 0 t gnus-button-fetch-group 2)
-    ("\\bin\\( +article\\| +message\\)? +\\(<\\([^\n @<>]+@[^\n @<>]+\\)>\\)" 2
-     t gnus-button-message-id 3)
-    ("\\(<URL: *\\)mailto: *\\([^> \n\t]+\\)>" 0 t gnus-url-mailto 2)
-    ("mailto:\\([-a-z.@_+0-9%=?]+\\)" 0 t gnus-url-mailto 1)
-    ("\\bmailto:\\([^ \n\t]+\\)" 0 t gnus-url-mailto 1)
+    ("\\(\\b<\\(url:[>\n\t ]*\\)?\\(nntp\\|news\\):[>\n\t ]*\\(//\\)?\\([^>\n\t ]*\\)>\\)"
+     1 (>= gnus-button-message-level 0) gnus-button-fetch-group 5)
+    ("\\b\\(nntp\\|news\\):\\(//\\)?\\([^'\">\n\t ]+\\)"
+     0 (>= gnus-button-message-level 0) gnus-button-fetch-group 3)
+    ("\\bin\\( +article\\| +message\\)? +\\(<\\([^\n @<>]+@[^\n @<>]+\\)>\\)"
+     2 (>= gnus-button-message-level 0) gnus-button-message-id 3)
+    ("\\(<URL: *\\)mailto: *\\([^> \n\t]+\\)>"
+     0 (>= gnus-button-message-level 0) gnus-url-mailto 2)
+    ("mailto:\\([-a-z.@_+0-9%=?]+\\)"
+     0 (>= gnus-button-message-level 0) gnus-url-mailto 1)
+    ("\\bmailto:\\([^ \n\t]+\\)"
+     0 (>= gnus-button-message-level 0) gnus-url-mailto 1)
      ;; CTAN
      ;; CTAN
-    ("\\bCTAN:[ \t\n]*\\([^>)!;:,\n\t ]*\\)" 0 (>= gnus-button-tex-level 1)
-     gnus-button-handle-ctan 1)
+    ((concat "\\bCTAN:[ \t\n]?[^>)!;:,'\n\t ]*\\("
+            gnus-button-ctan-directory-regexp
+            "[^][>)!;:,'\n\t ]+\\)")
+     0 (>= gnus-button-tex-level 1) gnus-button-handle-ctan 1)
+    ((concat "\\btex-archive/\\("
+            gnus-button-ctan-directory-regexp
+            "/[-_.a-z0-9/]+[-_./a-z0-9]+[/a-z0-9]\\)")
+     1 (>= gnus-button-tex-level 6) gnus-button-handle-ctan 1)
+    ((concat
+      "\\b\\("
+      gnus-button-ctan-directory-regexp
+      "/[-_.a-z0-9]+/[-_./a-z0-9]+[/a-z0-9]\\)")
+     1 (>= gnus-button-tex-level 8) gnus-button-handle-ctan 1)
      ;; This is info
      ;; This is info
-    ("\\binfo:\\(//\\)?\\([^'\">\n\t ]+\\)" 0
-     (>= gnus-button-emacs-level 1) gnus-button-handle-info 2)
+    ("\\binfo:\\(//\\)?\\([^'\">\n\t ]+\\)"
+     0 (>= gnus-button-emacs-level 1) gnus-button-handle-info-url 2)
+    ("\\((Info-goto-node\\|(info\\)[ \t\n]*\\(\"[^\"]*\"\\))" 0
+     (>= gnus-button-emacs-level 1) gnus-button-handle-info-url 2)
+    ("\\b\\(C-h\\|<?[Ff]1>?\\)[ \t\n]+i[ \t\n]+d?[ \t\n]?m[ \t\n]+\\([^ ]+ ?[^ ]+\\)[ \t\n]+RET"
+     ;; Info links like `C-h i d m CC Mode RET'
+     0 (>= gnus-button-emacs-level 1) gnus-button-handle-info-keystrokes 2)
      ;; This is custom
      ;; This is custom
-    ("\\bcustom:\\(//\\)?\\([^'\">\n\t ]+\\)" 0
-     (>= gnus-button-emacs-level 5) gnus-button-handle-custom 2)
+    ("\\bcustom:\\(//\\)?\\([^'\">\n\t ]+\\)"
+     0 (>= gnus-button-emacs-level 5) gnus-button-handle-custom 2)
      ("M-x[ \t\n]customize-[^ ]+[ \t\n]RET[ \t\n]\\([^ ]+\\)[ \t\n]RET" 0
       (>= gnus-button-emacs-level 1) gnus-button-handle-custom 1)
      ;; Emacs help commands
      ("M-x[ \t\n]customize-[^ ]+[ \t\n]RET[ \t\n]\\([^ ]+\\)[ \t\n]RET" 0
       (>= gnus-button-emacs-level 1) gnus-button-handle-custom 1)
      ;; Emacs help commands
@@ -5620,36 +6031,51 @@ positives are possible."
       0 (>= gnus-button-emacs-level 1) gnus-button-handle-apropos-variable 1)
      ("M-x[ \t\n]+apropos-documentation[ \t\n]+RET[ \t\n]+\\([^ \t\n]+\\)[ \t\n]+RET"
       0 (>= gnus-button-emacs-level 1) gnus-button-handle-apropos-documentation 1)
       0 (>= gnus-button-emacs-level 1) gnus-button-handle-apropos-variable 1)
      ("M-x[ \t\n]+apropos-documentation[ \t\n]+RET[ \t\n]+\\([^ \t\n]+\\)[ \t\n]+RET"
       0 (>= gnus-button-emacs-level 1) gnus-button-handle-apropos-documentation 1)
+    ;; The following entries may lead to many false positives so don't enable
+    ;; them by default (use a high button level):
+    ("/\\([a-z][-a-z0-9]+\\.el\\)\\>"
+     1 (>= gnus-button-emacs-level 8) gnus-button-handle-library 1)
+    ("`\\([a-z][-a-z0-9]+\\.el\\)'"
+     1 (>= gnus-button-emacs-level 8) gnus-button-handle-library 1)
+    ("`\\([a-z][a-z0-9]+-[a-z]+-[-a-z]+\\|\\(gnus\\|message\\)-[-a-z]+\\)'"
+     0 (>= gnus-button-emacs-level 8) gnus-button-handle-symbol 1)
+    ("`\\([a-z][a-z0-9]+-[a-z]+\\)'"
+     0 (>= gnus-button-emacs-level 9) gnus-button-handle-symbol 1)
+    ("(setq[ \t\n]+\\([a-z][a-z0-9]+-[-a-z0-9]+\\)[ \t\n]+.+)"
+     1 (>= gnus-button-emacs-level 7) gnus-button-handle-describe-variable 1)
      ("\\b\\(C-h\\|<?[Ff]1>?\\)[ \t\n]+f[ \t\n]+\\([^ \t\n]+\\)[ \t\n]+RET"
       0 (>= gnus-button-emacs-level 1) gnus-button-handle-describe-function 2)
      ("\\b\\(C-h\\|<?[Ff]1>?\\)[ \t\n]+v[ \t\n]+\\([^ \t\n]+\\)[ \t\n]+RET"
       0 (>= gnus-button-emacs-level 1) gnus-button-handle-describe-variable 2)
      ("\\b\\(C-h\\|<?[Ff]1>?\\)[ \t\n]+f[ \t\n]+\\([^ \t\n]+\\)[ \t\n]+RET"
       0 (>= gnus-button-emacs-level 1) gnus-button-handle-describe-function 2)
      ("\\b\\(C-h\\|<?[Ff]1>?\\)[ \t\n]+v[ \t\n]+\\([^ \t\n]+\\)[ \t\n]+RET"
       0 (>= gnus-button-emacs-level 1) gnus-button-handle-describe-variable 2)
-    ("\\b\\(C-h\\|<?[Ff]1>?\\)[ \t\n]+k[ \t\n]+\\([^ \t\n]+\\)[ \t\n]+" 0
-     ;; this regexp needs to be fixed!
-     (>= gnus-button-emacs-level 9) gnus-button-handle-describe-key 2)
-    ;; This is how URLs _should_ be embedded in text...
-    ("<URL: *\\([^<>]*\\)>" 1 t gnus-button-embedded-url 1)
+    ("`\\(\\b\\(C-h\\|<?[Ff]1>?\\)[ \t\n]+k[ \t\n]+\\([^']+\\)\\)'"
+     ;; Unlike the other regexps we really have to require quoting
+     ;; here to determine where it ends.
+     1 (>= gnus-button-emacs-level 1) gnus-button-handle-describe-key 3)
+    ;; This is how URLs _should_ be embedded in text (RFC 1738)...
+    ("<URL: *\\([^<>]*\\)>"
+     1 (>= gnus-button-browse-level 0) gnus-button-embedded-url 1)
      ;; Raw URLs.
      ;; Raw URLs.
-    (gnus-button-url-regexp 0 t browse-url 0)
+    (gnus-button-url-regexp
+     0 (>= gnus-button-browse-level 0) browse-url 0)
      ;; man pages
      ;; man pages
-    ("\\b\\([a-z][a-z]+\\)([1-9])\\W" 0
-     (and (>= gnus-button-man-level 1) (< gnus-button-man-level 3))
+    ("\\b\\([a-z][a-z]+\\)([1-9])\\W"
+     0 (and (>= gnus-button-man-level 1) (< gnus-button-man-level 3))
       gnus-button-handle-man 1)
      ;; more man pages: resolv.conf(5), iso_8859-1(7), xterm(1x)
       gnus-button-handle-man 1)
      ;; more man pages: resolv.conf(5), iso_8859-1(7), xterm(1x)
-    ("\\b\\([a-z][-_.a-z0-9]+\\)([1-9])\\W" 0
-     (and (>= gnus-button-man-level 3) (< gnus-button-man-level 5))
+    ("\\b\\([a-z][-_.a-z0-9]+\\)([1-9])\\W"
+     0 (and (>= gnus-button-man-level 3) (< gnus-button-man-level 5))
       gnus-button-handle-man 1)
      ;; even more: Apache::PerlRun(3pm), PDL::IO::FastRaw(3pm),
       gnus-button-handle-man 1)
      ;; even more: Apache::PerlRun(3pm), PDL::IO::FastRaw(3pm),
-    ;; SoWWWAnchor(3iv), XSelectInput(3X11)
-    ("\\b\\([a-z][-_.:a-z0-9]+\\)([1-9][X1a-z]*)\\W" 0
-     (>= gnus-button-man-level 5) gnus-button-handle-man 1)
+    ;; SoWWWAnchor(3iv), XSelectInput(3X11), X(1), X(7)
+    ("\\b\\([a-z][-_.:a-z0-9]+\\)([1-9][X1a-z]*)\\W\\|\\b\\(X\\)([1-9])\\W"
+     0 (>= gnus-button-man-level 5) gnus-button-handle-man 1)
      ;; MID or mail: To avoid too many false positives we don't try to catch
      ;; all kind of allowed MIDs or mail addresses.  Domain part must contain
      ;; at least one dot.  TLD must contain two or three chars or be a know TLD
      ;; (info|name|...).  Put this entry near the _end_ of `gnus-button-alist'
      ;; so that non-ambiguous entries (see above) match first.
      (gnus-button-mid-or-mail-regexp
      ;; MID or mail: To avoid too many false positives we don't try to catch
      ;; all kind of allowed MIDs or mail addresses.  Domain part must contain
      ;; at least one dot.  TLD must contain two or three chars or be a know TLD
      ;; (info|name|...).  Put this entry near the _end_ of `gnus-button-alist'
      ;; so that non-ambiguous entries (see above) match first.
      (gnus-button-mid-or-mail-regexp
-     0 (>= gnus-button-mail-level 5) gnus-button-handle-mid-or-mail 1))
+     0 (>= gnus-button-message-level 5) gnus-button-handle-mid-or-mail 1))
    "*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
@@ -5674,16 +6100,21 @@ variable it the real callback function."
  
  (defcustom gnus-header-button-alist
    '(("^\\(References\\|Message-I[Dd]\\):" "<[^<>]+>"
  
  (defcustom gnus-header-button-alist
    '(("^\\(References\\|Message-I[Dd]\\):" "<[^<>]+>"
-     0 t gnus-button-message-id 0)
-    ("^\\(From\\|Reply-To\\):" ": *\\(.+\\)$" 1 t gnus-button-reply 1)
+     0 (>= gnus-button-message-level 0) gnus-button-message-id 0)
+    ("^\\(From\\|Reply-To\\):" ": *\\(.+\\)$"
+     1 (>= gnus-button-message-level 0) gnus-button-reply 1)
      ("^\\(Cc\\|To\\):" "[^ \t\n<>,()\"]+@[^ \t\n<>,()\"]+"
      ("^\\(Cc\\|To\\):" "[^ \t\n<>,()\"]+@[^ \t\n<>,()\"]+"
-     0 t gnus-button-mailto 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-z.@_+0-9%=?]+\\)" 0 t gnus-url-mailto 1)
-    ("^[^:]+:" "\\(<\\(url: \\)?news:\\([^>\n ]*\\)>\\)" 1 t
-     gnus-button-message-id 3))
+     0 (>= gnus-button-message-level 0) gnus-button-mailto 0)
+    ("^X-[Uu][Rr][Ll]:" gnus-button-url-regexp
+     0 (>= gnus-button-browse-level 0) browse-url 0)
+    ("^Subject:" gnus-button-url-regexp
+     0 (>= gnus-button-browse-level 0) browse-url 0)
+    ("^[^:]+:" gnus-button-url-regexp
+     0 (>= gnus-button-browse-level 0) browse-url 0)
+    ("^[^:]+:" "\\bmailto:\\([-a-z.@_+0-9%=?]+\\)"
+     0 (>= gnus-button-message-level 0) gnus-url-mailto 1)
+    ("^[^:]+:" "\\(<\\(url: \\)?\\(nntp\\|news\\):\\([^>\n ]*\\)>\\)"
+     1 (>= gnus-button-message-level 0) gnus-button-message-id 4))
    "*Alist of headers and regexps to match buttons in article heads.
  
  This alist is very similar to `gnus-button-alist', except that each
    "*Alist of headers and regexps to match buttons in article heads.
  
  This alist is very similar to `gnus-button-alist', except that each
@@ -5731,8 +6162,8 @@ call it with the value of the `gnus-data' text property."
  If the text at point has a `gnus-callback' property,
  call it with the value of the `gnus-data' text property."
    (interactive)
  If the text at point has a `gnus-callback' property,
  call it with the value of the `gnus-data' text property."
    (interactive)
-  (let* ((data (get-text-property (point) 'gnus-data))
-        (fun (get-text-property (point) 'gnus-callback)))
+  (let ((data (get-text-property (point) 'gnus-data))
+       (fun (get-text-property (point) 'gnus-callback)))
      (when fun
        (funcall fun data))))
  
      (when fun
        (funcall fun data))))
  
@@ -6027,17 +6458,27 @@ specified by `gnus-button-alist'."
    "Fetch a man page."
    (funcall gnus-button-man-handler url))
  
    "Fetch a man page."
    (funcall gnus-button-man-handler url))
  
-(defun gnus-button-handle-info (url)
+(defun gnus-button-handle-info-url (url)
    "Fetch an 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)))
+  (cond
+   ((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)))))
+   ((string-match "([^)\"]+)[^\"]+" url)
+    (setq url
+         (gnus-replace-in-string
+          (gnus-replace-in-string url "[\n\t ]+" " ") "\"" ""))
+    (gnus-info-find-node url))
+   (t (error "Can't parse %s" url))))
+
+(defun gnus-button-handle-info-keystrokes (url)
+  "Call `info' when pushing the corresponding URL button."
+  ;; For links like `C-h i d m gnus RET', `C-h i d m CC Mode RET'.
+  (info)
+  (Info-directory)
+  (Info-menu url))
  
  (defun gnus-button-message-id (message-id)
    "Fetch MESSAGE-ID."
  
  (defun gnus-button-message-id (message-id)
    "Fetch MESSAGE-ID."
@@ -6135,7 +6576,10 @@ specified by `gnus-button-alist'."
          gnus-callback gnus-article-button-prev-page
          article-type annotation))
      (widget-convert-button
          gnus-callback gnus-article-button-prev-page
          article-type annotation))
      (widget-convert-button
-     'link b (point)
+     'link b (if (bolp)
+                ;; Exclude a newline.
+                (1- (point))
+              (point))
       :action 'gnus-button-prev-page
       :button-keymap gnus-prev-page-map)))
  
       :action 'gnus-button-prev-page
       :button-keymap gnus-prev-page-map)))
  
@@ -6182,7 +6626,10 @@ specified by `gnus-button-alist'."
                           gnus-callback gnus-article-button-next-page
                           article-type annotation))
      (widget-convert-button
                           gnus-callback gnus-article-button-next-page
                           article-type annotation))
      (widget-convert-button
-     'link b (point)
+     'link b (if (bolp)
+                ;; Exclude a newline.
+                (1- (point))
+              (point))
       :action 'gnus-button-next-page
       :button-keymap gnus-next-page-map)))
  
       :action 'gnus-button-next-page
       :button-keymap gnus-next-page-map)))
  
@@ -6355,7 +6802,7 @@ For example:
                                    (search-forward field nil t))
                                  (prog2
                                      (message-narrow-to-field)
                                    (search-forward field nil t))
                                  (prog2
                                      (message-narrow-to-field)
-                                    (buffer-substring (point-min) (point-max))
+                                    (buffer-string)
                                    (delete-region (point-min) (point-max))
                                    (widen))))
                           '("Content-Type:" "Content-Transfer-Encoding:"
                                    (delete-region (point-min) (point-max))
                                    (widen))))
                           '("Content-Type:" "Content-Transfer-Encoding:"
@@ -6449,42 +6896,45 @@ For example:
  
  (defun gnus-mime-security-show-details (handle)
    (let ((details (mm-handle-multipart-ctl-parameter handle 'gnus-details)))
  
  (defun gnus-mime-security-show-details (handle)
    (let ((details (mm-handle-multipart-ctl-parameter handle 'gnus-details)))
-    (if details
-       (if gnus-mime-security-show-details-inline
-           (let ((gnus-mime-security-button-pressed t)
-                 (gnus-mime-security-button-line-format
-                  (get-text-property (point) 'gnus-line-format))
+    (if (not details)
+       (gnus-message 5 "No details.")
+      (if gnus-mime-security-show-details-inline
+         (let ((gnus-mime-security-button-pressed
+                (not (get-text-property (point) 'gnus-mime-details)))
+               (gnus-mime-security-button-line-format
+                (get-text-property (point) 'gnus-line-format))
                 buffer-read-only)
                 buffer-read-only)
-             (forward-char -1)
-             (while (eq (get-text-property (point) 'gnus-line-format)
-                        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)
-                                (point-max))))
-         (if (gnus-buffer-live-p gnus-mime-security-details-buffer)
-             (with-current-buffer gnus-mime-security-details-buffer
-               (erase-buffer)
-               t)
-           (setq gnus-mime-security-details-buffer
-                 (gnus-get-buffer-create "*MIME Security Details*")))
-         (with-current-buffer gnus-mime-security-details-buffer
-           (insert details)
-           (goto-char (point-min)))
-         (pop-to-buffer gnus-mime-security-details-buffer))
-      (gnus-message 5 "No details."))))
+           (forward-char -1)
+           (while (eq (get-text-property (point) 'gnus-line-format)
+                      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)
+                              (point-max))))
+       ;; Not inlined.
+       (if (gnus-buffer-live-p gnus-mime-security-details-buffer)
+           (with-current-buffer gnus-mime-security-details-buffer
+             (erase-buffer)
+             t)
+         (setq gnus-mime-security-details-buffer
+               (gnus-get-buffer-create "*MIME Security Details*")))
+       (with-current-buffer gnus-mime-security-details-buffer
+         (insert details)
+         (goto-char (point-min)))
+       (pop-to-buffer gnus-mime-security-details-buffer)))))
  
  (defun gnus-mime-security-press-button (handle)
  
  (defun gnus-mime-security-press-button (handle)
-  (if (mm-handle-multipart-ctl-parameter handle 'gnus-info)
-      (gnus-mime-security-show-details handle)
-    (gnus-mime-security-verify-or-decrypt handle)))
+  (save-excursion
+    (if (mm-handle-multipart-ctl-parameter handle 'gnus-info)
+       (gnus-mime-security-show-details handle)
+      (gnus-mime-security-verify-or-decrypt handle))))
  
  (defun gnus-insert-mime-security-button (handle &optional displayed)
    (let* ((protocol (mm-handle-multipart-ctl-parameter handle 'protocol))
  
  (defun gnus-insert-mime-security-button (handle &optional displayed)
    (let* ((protocol (mm-handle-multipart-ctl-parameter handle 'protocol))
@@ -6505,7 +6955,8 @@ For example:
          b e)
      (setq gnus-tmp-details
           (if gnus-tmp-details
          b e)
      (setq gnus-tmp-details
           (if gnus-tmp-details
-             (concat "\n" gnus-tmp-details) ""))
+             (concat "\n" gnus-tmp-details)
+           ""))
      (setq gnus-tmp-pressed-details
           (if gnus-mime-security-button-pressed gnus-tmp-details ""))
      (unless (bolp)
      (setq gnus-tmp-pressed-details
           (if gnus-mime-security-button-pressed gnus-tmp-details ""))
      (unless (bolp)
@@ -6517,9 +6968,13 @@ For example:
       `(,@(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
       `(,@(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
+        gnus-mime-details ,gnus-mime-security-button-pressed
          article-type annotation
          gnus-data ,handle))
          article-type annotation
          gnus-data ,handle))
-    (setq e (point))
+    (setq e (if (bolp)
+               ;; Exclude a newline.
+               (1- (point))
+             (point)))
      (widget-convert-button
       'link b e
       :mime-handle handle
      (widget-convert-button
       'link b e
       :mime-handle handle
@@ -6529,8 +6984,8 @@ For example:
       (lambda (widget/window &optional overlay pos)
         ;; Needed to properly clear the message due to a bug in
         ;; wid-edit (XEmacs only).
       (lambda (widget/window &optional overlay pos)
         ;; Needed to properly clear the message due to a bug in
         ;; wid-edit (XEmacs only).
-       (if (boundp 'help-echo-owns-message)
-          (setq help-echo-owns-message t))
+       (when (boundp 'help-echo-owns-message)
+        (setq help-echo-owns-message t))
         (format
         "%S: show detail"
         (aref gnus-mouse-2 0))))))
         (format
         "%S: show detail"
         (aref gnus-mouse-2 0))))))