[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-art.el [lexbind]

[Miles Bader]

Index: emacs/lisp/gnus/gnus-art.el
diff -c emacs/lisp/gnus/gnus-art.el:1.41.2.4 
emacs/lisp/gnus/gnus-art.el:1.41.2.5
*** emacs/lisp/gnus/gnus-art.el:1.41.2.4        Thu Sep 16 00:12:15 2004
--- emacs/lisp/gnus/gnus-art.el Wed Oct  6 05:21:53 2004
***************
*** 213,218 ****
--- 213,219 ----
  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'."
+   :version "21.4"
    :type 'boolean
    :group 'gnus-article-hiding)
  
***************
*** 744,750 ****
  To see e.g. security buttons you could set this to
  `(\"multipart/signed\")'.
  This variable is only used when `gnus-inhibit-mime-unbuttonizing' is nil."
!   :version "21.1"
    :group 'gnus-article-mime
    :type '(repeat regexp))
  
--- 745,751 ----
  To see e.g. security buttons you could set this to
  `(\"multipart/signed\")'.
  This variable is only used when `gnus-inhibit-mime-unbuttonizing' is nil."
!   :version "21.4"
    :group 'gnus-article-mime
    :type '(repeat regexp))
  
***************
*** 753,765 ****
  When nil (the default value), then some MIME parts do not get buttons,
  as described by the variables `gnus-buttonized-mime-types' and
  `gnus-unbuttonized-mime-types'."
!   :version "21.3"
    :type 'boolean)
  
  (defcustom gnus-body-boundary-delimiter "_"
    "String used to delimit header and body.
  This variable is used by `gnus-article-treat-body-boundary' which can
  be controlled by `gnus-treat-body-boundary'."
    :group 'gnus-article-various
    :type '(choice (item :tag "None" :value nil)
                 string))
--- 754,767 ----
  When nil (the default value), then some MIME parts do not get buttons,
  as described by the variables `gnus-buttonized-mime-types' and
  `gnus-unbuttonized-mime-types'."
!   :version "21.4"
    :type 'boolean)
  
  (defcustom gnus-body-boundary-delimiter "_"
    "String used to delimit header and body.
  This variable is used by `gnus-article-treat-body-boundary' which can
  be controlled by `gnus-treat-body-boundary'."
+   :version "21.4"
    :group 'gnus-article-various
    :type '(choice (item :tag "None" :value nil)
                 string))
***************
*** 768,773 ****
--- 770,776 ----
    "Defines the location of the faces database.
  For information on obtaining this database of pretty pictures, please
  see http://www.cs.indiana.edu/picons/ftp/index.html";
+   :version "21.4"
    :type '(repeat directory)
    :link '(url-link :tag "download"
                   "http://www.cs.indiana.edu/picons/ftp/index.html";)
***************
*** 908,913 ****
--- 911,917 ----
    "Remove carriage returns.
  Valid values are nil, t, `head', `last', an integer or a predicate.
  See Info node `(gnus)Customizing Articles' for details."
+   :version "21.4"
    :group 'gnus-article-treat
    :link '(custom-manual "(gnus)Customizing Articles")
    :type gnus-article-treat-custom)
***************
*** 924,929 ****
--- 928,934 ----
    "Remove leading whitespace in headers.
  Valid values are nil, t, `head', `last', an integer or a predicate.
  See Info node `(gnus)Customizing Articles' for details."
+   :version "21.4"
    :group 'gnus-article-treat
    :link '(custom-manual "(gnus)Customizing Articles")
    :type gnus-article-treat-custom)
***************
*** 1043,1048 ****
--- 1048,1054 ----
    "Display the Date in a format that can be read aloud in English.
  Valid values are nil, t, `head', `last', an integer or a predicate.
  See Info node `(gnus)Customizing Articles' for details."
+   :version "21.4"
    :group 'gnus-article-treat
    :link '(custom-manual "(gnus)Customizing Articles")
    :type gnus-article-treat-head-custom)
***************
*** 1126,1131 ****
--- 1132,1138 ----
    "Fold headers.
  Valid values are nil, t, `head', `last', an integer or a predicate.
  See Info node `(gnus)Customizing Articles' for details."
+   :version "21.4"
    :group 'gnus-article-treat
    :link '(custom-manual "(gnus)Customizing Articles")
    :type gnus-article-treat-custom)
***************
*** 1134,1139 ****
--- 1141,1147 ----
    "Fold the Newsgroups and Followup-To headers.
  Valid values are nil, t, `head', `last', an integer or a predicate.
  See Info node `(gnus)Customizing Articles' for details."
+   :version "21.4"
    :group 'gnus-article-treat
    :link '(custom-manual "(gnus)Customizing Articles")
    :type gnus-article-treat-custom)
***************
*** 1199,1205 ****
  See Info node `(gnus)Customizing Articles' and Info node
  `(gnus)X-Face' for details."
    :group 'gnus-article-treat
!   :version "21.1"
    :link '(custom-manual "(gnus)Customizing Articles")
    :link '(custom-manual "(gnus)X-Face")
    :type gnus-article-treat-head-custom)
--- 1207,1213 ----
  See Info node `(gnus)Customizing Articles' and Info node
  `(gnus)X-Face' for details."
    :group 'gnus-article-treat
!   :version "21.4"
    :link '(custom-manual "(gnus)Customizing Articles")
    :link '(custom-manual "(gnus)X-Face")
    :type gnus-article-treat-head-custom)
***************
*** 1260,1265 ****
--- 1268,1274 ----
  Valid values are nil, t, `head', `last', an integer or a predicate.
  See Info node `(gnus)Customizing Articles' and Info node
  `(gnus)Picons' for details."
+   :version "21.4"
    :group 'gnus-article-treat
    :group 'gnus-picon
    :link '(custom-manual "(gnus)Customizing Articles")
***************
*** 1275,1281 ****
    "Draw a boundary at the end of the headers.
  Valid values are nil and `head'.
  See Info node `(gnus)Customizing Articles' for details."
!   :version "21.1"
    :group 'gnus-article-treat
    :link '(custom-manual "(gnus)Customizing Articles")
    :type gnus-article-treat-head-custom)
--- 1284,1290 ----
    "Draw a boundary at the end of the headers.
  Valid values are nil and `head'.
  See Info node `(gnus)Customizing Articles' for details."
!   :version "21.4"
    :group 'gnus-article-treat
    :link '(custom-manual "(gnus)Customizing Articles")
    :type gnus-article-treat-head-custom)
***************
*** 1293,1298 ****
--- 1302,1308 ----
    "Format as HTML.
  Valid values are nil, t, `head', `last', an integer or a predicate.
  See Info node `(gnus)Customizing Articles' for details."
+   :version "21.4"
    :group 'gnus-article-treat
    :link '(custom-manual "(gnus)Customizing Articles")
    :type gnus-article-treat-custom)
***************
*** 1341,1346 ****
--- 1351,1357 ----
  (defcustom gnus-article-encrypt-protocol "PGP"
    "The protocol used for encrypt articles.
  It is a string, such as \"PGP\". If nil, ask user."
+   :version "21.4"
    :type 'string
    :group 'mime-security)
  
***************
*** 1352,1362 ****
--- 1363,1375 ----
                              (executable-find idna-program))
    "Whether IDNA decoding of headers is used when viewing messages.
  This requires GNU Libidn, and by default only enabled if it is found."
+   :version "21.4"
    :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."
+   :version "21.4"
    :group 'gnus-article
    :type 'boolean)
  
***************
*** 4606,4611 ****
--- 4619,4625 ----
  
  (defcustom gnus-mime-display-multipart-alternative-as-mixed nil
    "Display \"multipart/alternative\" parts as  \"multipart/mixed\"."
+   :version "21.4"
    :group 'gnus-article-mime
    :type 'boolean)
  
***************
*** 4615,4620 ****
--- 4629,4635 ----
  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."
+   :version "21.4"
    :group 'gnus-article-mime
    :type 'boolean)
  
***************
*** 5719,5724 ****
--- 5734,5740 ----
  (defcustom gnus-button-valid-fqdn-regexp
    message-valid-fqdn-regexp
    "Regular expression that matches a valid FQDN."
+   :version "21.4"
    :group 'gnus-article-buttons
    :type 'regexp)
  
***************
*** 5726,5731 ****
--- 5742,5748 ----
    "Function to use for displaying man pages.
  The function must take at least one argument with a string naming the
  man page."
+   :version "21.4"
    :type '(choice (function-item :tag "Man" manual-entry)
                 (function-item :tag "Woman" woman)
                 (function :tag "Other"))
***************
*** 5736,5741 ****
--- 5753,5759 ----
  If the default site is too slow, try to find a CTAN mirror, see
  <URL:http://tug.ctan.org/tex-archive/CTAN.sites?action=/index.html>.  See also
  the variable `gnus-button-handle-ctan'."
+   :version "21.4"
    :group 'gnus-article-buttons
    :link '(custom-manual "(gnus)Group Parameters")
    :type '(choice (const "http://www.tex.ac.uk/tex-archive/";)
***************
*** 5746,5757 ****
--- 5764,5777 ----
  (defcustom gnus-button-ctan-handler 'browse-url
    "Function to use for displaying CTAN links.
  The function must take one argument, the string naming the URL."
+   :version "21.4"
    :type '(choice (function-item :tag "Browse Url" browse-url)
                 (function :tag "Other"))
    :group 'gnus-article-buttons)
  
  (defcustom gnus-button-handle-ctan-bogus-regexp "^/?tex-archive/\\|^/"
    "Bogus strings removed from CTAN URLs."
+   :version "21.4"
    :group 'gnus-article-buttons
    :type '(choice (const "^/?tex-archive/\\|/")
                 (regexp :tag "Other")))
***************
*** 5765,5770 ****
--- 5785,5791 ----
     "\\)")
    "Regular expression for ctan directories.
  It should match all directories in the top level of `gnus-ctan-url'."
+   :version "21.4"
    :group 'gnus-article-buttons
    :type 'regexp)
  
***************
*** 5774,5779 ****
--- 5795,5801 ----
          gnus-button-valid-fqdn-regexp
          ">?\\)\\b")
    "Regular expression that matches a message ID or a mail address."
+   :version "21.4"
    :group 'gnus-article-buttons
    :type 'regexp)
  
***************
*** 5785,5790 ****
--- 5807,5813 ----
  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'."
+   :version "21.4"
    :group 'gnus-article-buttons
    :type '(choice (function-item :tag "Heuristic function"
                                gnus-button-mid-or-mail-heuristic)
***************
*** 5848,5853 ****
--- 5871,5877 ----
  
  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."
+   :version "21.4"
    :group 'gnus-article-buttons
    :type '(repeat (cons (number :tag "Rate")
                       (regexp :tag "Regexp"))))
***************
*** 6032,6037 ****
--- 6056,6062 ----
  specific groups.  Setting it higher in TeX groups is probably a good idea.
  See Info node `(gnus)Group Parameters' and the variable `gnus-parameters' on
  how to set variables in specific groups."
+   :version "21.4"
    :group 'gnus-article-buttons
    :link '(custom-manual "(gnus)Group Parameters")
    :type 'integer)
***************
*** 6043,6048 ****
--- 6068,6074 ----
  specific groups.  Setting it higher in Unix groups is probably a good idea.
  See Info node `(gnus)Group Parameters' and the variable `gnus-parameters' on
  how to set variables in specific groups."
+   :version "21.4"
    :group 'gnus-article-buttons
    :link '(custom-manual "(gnus)Group Parameters")
    :type 'integer)
***************
*** 6054,6059 ****
--- 6080,6086 ----
  specific groups.  Setting it higher in Emacs or Gnus related groups is
  probably a good idea.  See Info node `(gnus)Group Parameters' and the variable
  `gnus-parameters' on how to set variables in specific groups."
+   :version "21.4"
    :group 'gnus-article-buttons
    :link '(custom-manual "(gnus)Group Parameters")
    :type 'integer)
***************
*** 6063,6068 ****
--- 6090,6096 ----
  The higher the number, the more buttons will appear and the more false
  positives are possible."
    ;; mail addresses, MIDs, URLs for news, ...
+   :version "21.4"
    :group 'gnus-article-buttons
    :type 'integer)
  
***************
*** 6071,6076 ****
--- 6099,6105 ----
  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'
+   :version "21.4"
    :group 'gnus-article-buttons
    :type 'integer)