/[emacs]/emacs/lisp/gnus/gnus-art.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-art.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.61 by miles, Sun Feb 6 11:56:41 2005 UTC revision 1.62 by kfstorm, Wed Feb 9 15:50:39 2005 UTC
# Line 213  By default, if you set this t, then Gnus Line 213  By default, if you set this t, then Gnus
213  signatures, but will never scroll down to show you a page consisting  signatures, but will never scroll down to show you a page consisting
214  only of boring text.  Boring text is controlled by  only of boring text.  Boring text is controlled by
215  `gnus-article-boring-faces'."  `gnus-article-boring-faces'."
216    :version "21.4"    :version "22.1"
217    :type 'boolean    :type 'boolean
218    :group 'gnus-article-hiding)    :group 'gnus-article-hiding)
219    
# Line 318  advertisements.  For example: Line 318  advertisements.  For example:
318                     (symbol :tag "Item in `gnus-article-banner-alist'" none)                     (symbol :tag "Item in `gnus-article-banner-alist'" none)
319                     regexp                     regexp
320                     (const :tag "None" nil))))                     (const :tag "None" nil))))
321    :version "21.4"    :version "22.1"
322    :group 'gnus-article-washing)    :group 'gnus-article-washing)
323    
324  (defmacro gnus-emphasis-custom-with-format (&rest body)  (defmacro gnus-emphasis-custom-with-format (&rest body)
# Line 806  If set, this variable overrides `gnus-un Line 806  If set, this variable overrides `gnus-un
806  To see e.g. security buttons you could set this to  To see e.g. security buttons you could set this to
807  `(\"multipart/signed\")'.  `(\"multipart/signed\")'.
808  This variable is only used when `gnus-inhibit-mime-unbuttonizing' is nil."  This variable is only used when `gnus-inhibit-mime-unbuttonizing' is nil."
809    :version "21.4"    :version "22.1"
810    :group 'gnus-article-mime    :group 'gnus-article-mime
811    :type '(repeat regexp))    :type '(repeat regexp))
812    
# Line 815  This variable is only used when `gnus-in Line 815  This variable is only used when `gnus-in
815  When nil (the default value), then some MIME parts do not get buttons,  When nil (the default value), then some MIME parts do not get buttons,
816  as described by the variables `gnus-buttonized-mime-types' and  as described by the variables `gnus-buttonized-mime-types' and
817  `gnus-unbuttonized-mime-types'."  `gnus-unbuttonized-mime-types'."
818    :version "21.4"    :version "22.1"
819    :type 'boolean)    :type 'boolean)
820    
821  (defcustom gnus-body-boundary-delimiter "_"  (defcustom gnus-body-boundary-delimiter "_"
822    "String used to delimit header and body.    "String used to delimit header and body.
823  This variable is used by `gnus-article-treat-body-boundary' which can  This variable is used by `gnus-article-treat-body-boundary' which can
824  be controlled by `gnus-treat-body-boundary'."  be controlled by `gnus-treat-body-boundary'."
825    :version "21.4"    :version "22.1"
826    :group 'gnus-article-various    :group 'gnus-article-various
827    :type '(choice (item :tag "None" :value nil)    :type '(choice (item :tag "None" :value nil)
828                   string))                   string))
# Line 831  be controlled by `gnus-treat-body-bounda Line 831  be controlled by `gnus-treat-body-bounda
831    "Defines the location of the faces database.    "Defines the location of the faces database.
832  For information on obtaining this database of pretty pictures, please  For information on obtaining this database of pretty pictures, please
833  see http://www.cs.indiana.edu/picons/ftp/index.html"  see http://www.cs.indiana.edu/picons/ftp/index.html"
834    :version "21.4"    :version "22.1"
835    :type '(repeat directory)    :type '(repeat directory)
836    :link '(url-link :tag "download"    :link '(url-link :tag "download"
837                     "http://www.cs.indiana.edu/picons/ftp/index.html")                     "http://www.cs.indiana.edu/picons/ftp/index.html")
# Line 972  See Info node `(gnus)Customizing Article Line 972  See Info node `(gnus)Customizing Article
972    "Remove carriage returns.    "Remove carriage returns.
973  Valid values are nil, t, `head', `last', an integer or a predicate.  Valid values are nil, t, `head', `last', an integer or a predicate.
974  See Info node `(gnus)Customizing Articles' for details."  See Info node `(gnus)Customizing Articles' for details."
975    :version "21.4"    :version "22.1"
976    :group 'gnus-article-treat    :group 'gnus-article-treat
977    :link '(custom-manual "(gnus)Customizing Articles")    :link '(custom-manual "(gnus)Customizing Articles")
978    :type gnus-article-treat-custom)    :type gnus-article-treat-custom)
# Line 981  See Info node `(gnus)Customizing Article Line 981  See Info node `(gnus)Customizing Article
981    "Remove newlines from within URLs.    "Remove newlines from within URLs.
982  Valid values are nil, t, `head', `last', an integer or a predicate.  Valid values are nil, t, `head', `last', an integer or a predicate.
983  See Info node `(gnus)Customizing Articles' for details."  See Info node `(gnus)Customizing Articles' for details."
984    :version "21.4"    :version "22.1"
985    :group 'gnus-article-treat    :group 'gnus-article-treat
986    :link '(custom-manual "(gnus)Customizing Articles")    :link '(custom-manual "(gnus)Customizing Articles")
987    :type gnus-article-treat-custom)    :type gnus-article-treat-custom)
# Line 990  See Info node `(gnus)Customizing Article Line 990  See Info node `(gnus)Customizing Article
990    "Remove leading whitespace in headers.    "Remove leading whitespace in headers.
991  Valid values are nil, t, `head', `last', an integer or a predicate.  Valid values are nil, t, `head', `last', an integer or a predicate.
992  See Info node `(gnus)Customizing Articles' for details."  See Info node `(gnus)Customizing Articles' for details."
993    :version "21.4"    :version "22.1"
994    :group 'gnus-article-treat    :group 'gnus-article-treat
995    :link '(custom-manual "(gnus)Customizing Articles")    :link '(custom-manual "(gnus)Customizing Articles")
996    :type gnus-article-treat-custom)    :type gnus-article-treat-custom)
# Line 1110  See Info node `(gnus)Customizing Article Line 1110  See Info node `(gnus)Customizing Article
1110    "Display the Date in a format that can be read aloud in English.    "Display the Date in a format that can be read aloud in English.
1111  Valid values are nil, t, `head', `last', an integer or a predicate.  Valid values are nil, t, `head', `last', an integer or a predicate.
1112  See Info node `(gnus)Customizing Articles' for details."  See Info node `(gnus)Customizing Articles' for details."
1113    :version "21.4"    :version "22.1"
1114    :group 'gnus-article-treat    :group 'gnus-article-treat
1115    :link '(custom-manual "(gnus)Customizing Articles")    :link '(custom-manual "(gnus)Customizing Articles")
1116    :type gnus-article-treat-head-custom)    :type gnus-article-treat-head-custom)
# Line 1186  See Info node `(gnus)Customizing Article Line 1186  See Info node `(gnus)Customizing Article
1186    "Unfold folded header lines.    "Unfold folded header lines.
1187  Valid values are nil, t, `head', `last', an integer or a predicate.  Valid values are nil, t, `head', `last', an integer or a predicate.
1188  See Info node `(gnus)Customizing Articles' for details."  See Info node `(gnus)Customizing Articles' for details."
1189    :version "21.4"    :version "22.1"
1190    :group 'gnus-article-treat    :group 'gnus-article-treat
1191    :link '(custom-manual "(gnus)Customizing Articles")    :link '(custom-manual "(gnus)Customizing Articles")
1192    :type gnus-article-treat-custom)    :type gnus-article-treat-custom)
# Line 1195  See Info node `(gnus)Customizing Article Line 1195  See Info node `(gnus)Customizing Article
1195    "Fold headers.    "Fold headers.
1196  Valid values are nil, t, `head', `last', an integer or a predicate.  Valid values are nil, t, `head', `last', an integer or a predicate.
1197  See Info node `(gnus)Customizing Articles' for details."  See Info node `(gnus)Customizing Articles' for details."
1198    :version "21.4"    :version "22.1"
1199    :group 'gnus-article-treat    :group 'gnus-article-treat
1200    :link '(custom-manual "(gnus)Customizing Articles")    :link '(custom-manual "(gnus)Customizing Articles")
1201    :type gnus-article-treat-custom)    :type gnus-article-treat-custom)
# Line 1204  See Info node `(gnus)Customizing Article Line 1204  See Info node `(gnus)Customizing Article
1204    "Fold the Newsgroups and Followup-To headers.    "Fold the Newsgroups and Followup-To headers.
1205  Valid values are nil, t, `head', `last', an integer or a predicate.  Valid values are nil, t, `head', `last', an integer or a predicate.
1206  See Info node `(gnus)Customizing Articles' for details."  See Info node `(gnus)Customizing Articles' for details."
1207    :version "21.4"    :version "22.1"
1208    :group 'gnus-article-treat    :group 'gnus-article-treat
1209    :link '(custom-manual "(gnus)Customizing Articles")    :link '(custom-manual "(gnus)Customizing Articles")
1210    :type gnus-article-treat-custom)    :type gnus-article-treat-custom)
# Line 1270  Valid values are nil, t, `head', `last', Line 1270  Valid values are nil, t, `head', `last',
1270  See Info node `(gnus)Customizing Articles' and Info node  See Info node `(gnus)Customizing Articles' and Info node
1271  `(gnus)X-Face' for details."  `(gnus)X-Face' for details."
1272    :group 'gnus-article-treat    :group 'gnus-article-treat
1273    :version "21.4"    :version "22.1"
1274    :link '(custom-manual "(gnus)Customizing Articles")    :link '(custom-manual "(gnus)Customizing Articles")
1275    :link '(custom-manual "(gnus)X-Face")    :link '(custom-manual "(gnus)X-Face")
1276    :type gnus-article-treat-head-custom)    :type gnus-article-treat-head-custom)
# Line 1301  See Info node `(gnus)Customizing Article Line 1301  See Info node `(gnus)Customizing Article
1301  Valid values are nil, t, `head', `last', an integer or a predicate.  Valid values are nil, t, `head', `last', an integer or a predicate.
1302  See Info node `(gnus)Customizing Articles' and Info node  See Info node `(gnus)Customizing Articles' and Info node
1303  `(gnus)Picons' for details."  `(gnus)Picons' for details."
1304    :version "21.4"    :version "22.1"
1305    :group 'gnus-article-treat    :group 'gnus-article-treat
1306    :group 'gnus-picon    :group 'gnus-picon
1307    :link '(custom-manual "(gnus)Customizing Articles")    :link '(custom-manual "(gnus)Customizing Articles")
# Line 1317  See Info node `(gnus)Customizing Article Line 1317  See Info node `(gnus)Customizing Article
1317  Valid values are nil, t, `head', `last', an integer or a predicate.  Valid values are nil, t, `head', `last', an integer or a predicate.
1318  See Info node `(gnus)Customizing Articles' and Info node  See Info node `(gnus)Customizing Articles' and Info node
1319  `(gnus)Picons' for details."  `(gnus)Picons' for details."
1320    :version "21.4"    :version "22.1"
1321    :group 'gnus-article-treat    :group 'gnus-article-treat
1322    :group 'gnus-picon    :group 'gnus-picon
1323    :link '(custom-manual "(gnus)Customizing Articles")    :link '(custom-manual "(gnus)Customizing Articles")
# Line 1333  See Info node `(gnus)Customizing Article Line 1333  See Info node `(gnus)Customizing Article
1333  Valid values are nil, t, `head', `last', an integer or a predicate.  Valid values are nil, t, `head', `last', an integer or a predicate.
1334  See Info node `(gnus)Customizing Articles' and Info node  See Info node `(gnus)Customizing Articles' and Info node
1335  `(gnus)Picons' for details."  `(gnus)Picons' for details."
1336    :version "21.4"    :version "22.1"
1337    :group 'gnus-article-treat    :group 'gnus-article-treat
1338    :group 'gnus-picon    :group 'gnus-picon
1339    :link '(custom-manual "(gnus)Customizing Articles")    :link '(custom-manual "(gnus)Customizing Articles")
# Line 1349  See Info node `(gnus)Customizing Article Line 1349  See Info node `(gnus)Customizing Article
1349    "Draw a boundary at the end of the headers.    "Draw a boundary at the end of the headers.
1350  Valid values are nil and `head'.  Valid values are nil and `head'.
1351  See Info node `(gnus)Customizing Articles' for details."  See Info node `(gnus)Customizing Articles' for details."
1352    :version "21.4"    :version "22.1"
1353    :group 'gnus-article-treat    :group 'gnus-article-treat
1354    :link '(custom-manual "(gnus)Customizing Articles")    :link '(custom-manual "(gnus)Customizing Articles")
1355    :type gnus-article-treat-head-custom)    :type gnus-article-treat-head-custom)
# Line 1367  See Info node `(gnus)Customizing Article Line 1367  See Info node `(gnus)Customizing Article
1367    "Format as HTML.    "Format as HTML.
1368  Valid values are nil, t, `head', `last', an integer or a predicate.  Valid values are nil, t, `head', `last', an integer or a predicate.
1369  See Info node `(gnus)Customizing Articles' for details."  See Info node `(gnus)Customizing Articles' for details."
1370    :version "21.4"    :version "22.1"
1371    :group 'gnus-article-treat    :group 'gnus-article-treat
1372    :link '(custom-manual "(gnus)Customizing Articles")    :link '(custom-manual "(gnus)Customizing Articles")
1373    :type gnus-article-treat-custom)    :type gnus-article-treat-custom)
# Line 1403  See Info node `(gnus)Customizing Article Line 1403  See Info node `(gnus)Customizing Article
1403  To automatically treat X-PGP-Sig, set it to head.  To automatically treat X-PGP-Sig, set it to head.
1404  Valid values are nil, t, `head', `last', an integer or a predicate.  Valid values are nil, t, `head', `last', an integer or a predicate.
1405  See Info node `(gnus)Customizing Articles' for details."  See Info node `(gnus)Customizing Articles' for details."
1406    :version "21.4"    :version "22.1"
1407    :group 'gnus-article-treat    :group 'gnus-article-treat
1408    :group 'mime-security    :group 'mime-security
1409    :link '(custom-manual "(gnus)Customizing Articles")    :link '(custom-manual "(gnus)Customizing Articles")
# Line 1417  See Info node `(gnus)Customizing Article Line 1417  See Info node `(gnus)Customizing Article
1417  (defcustom gnus-article-encrypt-protocol "PGP"  (defcustom gnus-article-encrypt-protocol "PGP"
1418    "The protocol used for encrypt articles.    "The protocol used for encrypt articles.
1419  It is a string, such as \"PGP\". If nil, ask user."  It is a string, such as \"PGP\". If nil, ask user."
1420    :version "21.4"    :version "22.1"
1421    :type 'string    :type 'string
1422    :group 'mime-security)    :group 'mime-security)
1423    
# Line 1429  It is a string, such as \"PGP\". If nil, Line 1429  It is a string, such as \"PGP\". If nil,
1429                                (executable-find idna-program))                                (executable-find idna-program))
1430    "Whether IDNA decoding of headers is used when viewing messages.    "Whether IDNA decoding of headers is used when viewing messages.
1431  This requires GNU Libidn, and by default only enabled if it is found."  This requires GNU Libidn, and by default only enabled if it is found."
1432    :version "21.4"    :version "22.1"
1433    :group 'gnus-article-headers    :group 'gnus-article-headers
1434    :type 'boolean)    :type 'boolean)
1435    
1436  (defcustom gnus-article-over-scroll nil  (defcustom gnus-article-over-scroll nil
1437    "If non-nil, allow scrolling the article buffer even when there no more text."    "If non-nil, allow scrolling the article buffer even when there no more text."
1438    :version "21.4"    :version "22.1"
1439    :group 'gnus-article    :group 'gnus-article
1440    :type 'boolean)    :type 'boolean)
1441    
# Line 4703  If t, it overrides nil values of Line 4703  If t, it overrides nil values of
4703    
4704  (defcustom gnus-mime-display-multipart-alternative-as-mixed nil  (defcustom gnus-mime-display-multipart-alternative-as-mixed nil
4705    "Display \"multipart/alternative\" parts as  \"multipart/mixed\"."    "Display \"multipart/alternative\" parts as  \"multipart/mixed\"."
4706    :version "21.4"    :version "22.1"
4707    :group 'gnus-article-mime    :group 'gnus-article-mime
4708    :type 'boolean)    :type 'boolean)
4709    
# Line 4713  If t, it overrides nil values of Line 4713  If t, it overrides nil values of
4713  If displaying \"text/html\" is discouraged \(see  If displaying \"text/html\" is discouraged \(see
4714  `mm-discouraged-alternatives'\) images or other material inside a  `mm-discouraged-alternatives'\) images or other material inside a
4715  \"multipart/related\" part might be overlooked when this variable is nil."  \"multipart/related\" part might be overlooked when this variable is nil."
4716    :version "21.4"    :version "22.1"
4717    :group 'gnus-article-mime    :group 'gnus-article-mime
4718    :type 'boolean)    :type 'boolean)
4719    
# Line 5821  groups." Line 5821  groups."
5821  (defcustom gnus-button-valid-fqdn-regexp  (defcustom gnus-button-valid-fqdn-regexp
5822    message-valid-fqdn-regexp    message-valid-fqdn-regexp
5823    "Regular expression that matches a valid FQDN."    "Regular expression that matches a valid FQDN."
5824    :version "21.4"    :version "22.1"
5825    :group 'gnus-article-buttons    :group 'gnus-article-buttons
5826    :type 'regexp)    :type 'regexp)
5827    
# Line 5829  groups." Line 5829  groups."
5829    "Function to use for displaying man pages.    "Function to use for displaying man pages.
5830  The function must take at least one argument with a string naming the  The function must take at least one argument with a string naming the
5831  man page."  man page."
5832    :version "21.4"    :version "22.1"
5833    :type '(choice (function-item :tag "Man" manual-entry)    :type '(choice (function-item :tag "Man" manual-entry)
5834                   (function-item :tag "Woman" woman)                   (function-item :tag "Woman" woman)
5835                   (function :tag "Other"))                   (function :tag "Other"))
# Line 5840  man page." Line 5840  man page."
5840  If the default site is too slow, try to find a CTAN mirror, see  If the default site is too slow, try to find a CTAN mirror, see
5841  <URL:http://tug.ctan.org/tex-archive/CTAN.sites?action=/index.html>.  See also  <URL:http://tug.ctan.org/tex-archive/CTAN.sites?action=/index.html>.  See also
5842  the variable `gnus-button-handle-ctan'."  the variable `gnus-button-handle-ctan'."
5843    :version "21.4"    :version "22.1"
5844    :group 'gnus-article-buttons    :group 'gnus-article-buttons
5845    :link '(custom-manual "(gnus)Group Parameters")    :link '(custom-manual "(gnus)Group Parameters")
5846    :type '(choice (const "http://www.tex.ac.uk/tex-archive/")    :type '(choice (const "http://www.tex.ac.uk/tex-archive/")
# Line 5851  the variable `gnus-button-handle-ctan'." Line 5851  the variable `gnus-button-handle-ctan'."
5851  (defcustom gnus-button-ctan-handler 'browse-url  (defcustom gnus-button-ctan-handler 'browse-url
5852    "Function to use for displaying CTAN links.    "Function to use for displaying CTAN links.
5853  The function must take one argument, the string naming the URL."  The function must take one argument, the string naming the URL."
5854    :version "21.4"    :version "22.1"
5855    :type '(choice (function-item :tag "Browse Url" browse-url)    :type '(choice (function-item :tag "Browse Url" browse-url)
5856                   (function :tag "Other"))                   (function :tag "Other"))
5857    :group 'gnus-article-buttons)    :group 'gnus-article-buttons)
5858    
5859  (defcustom gnus-button-handle-ctan-bogus-regexp "^/?tex-archive/\\|^/"  (defcustom gnus-button-handle-ctan-bogus-regexp "^/?tex-archive/\\|^/"
5860    "Bogus strings removed from CTAN URLs."    "Bogus strings removed from CTAN URLs."
5861    :version "21.4"    :version "22.1"
5862    :group 'gnus-article-buttons    :group 'gnus-article-buttons
5863    :type '(choice (const "^/?tex-archive/\\|/")    :type '(choice (const "^/?tex-archive/\\|/")
5864                   (regexp :tag "Other")))                   (regexp :tag "Other")))
# Line 5872  The function must take one argument, the Line 5872  The function must take one argument, the
5872     "\\)")     "\\)")
5873    "Regular expression for ctan directories.    "Regular expression for ctan directories.
5874  It should match all directories in the top level of `gnus-ctan-url'."  It should match all directories in the top level of `gnus-ctan-url'."
5875    :version "21.4"    :version "22.1"
5876    :group 'gnus-article-buttons    :group 'gnus-article-buttons
5877    :type 'regexp)    :type 'regexp)
5878    
# Line 5882  It should match all directories in the t Line 5882  It should match all directories in the t
5882            gnus-button-valid-fqdn-regexp            gnus-button-valid-fqdn-regexp
5883            ">?\\)\\b")            ">?\\)\\b")
5884    "Regular expression that matches a message ID or a mail address."    "Regular expression that matches a message ID or a mail address."
5885    :version "21.4"    :version "22.1"
5886    :group 'gnus-article-buttons    :group 'gnus-article-buttons
5887    :type 'regexp)    :type 'regexp)
5888    
# Line 5894  message ID or a mail address, respective Line 5894  message ID or a mail address, respective
5894  symbol `ask', always query the user what do do.  If it is a function, this  symbol `ask', always query the user what do do.  If it is a function, this
5895  function will be called with the string as it's only argument.  The function  function will be called with the string as it's only argument.  The function
5896  must return `mid', `mail', `invalid' or `ask'."  must return `mid', `mail', `invalid' or `ask'."
5897    :version "21.4"    :version "22.1"
5898    :group 'gnus-article-buttons    :group 'gnus-article-buttons
5899    :type '(choice (function-item :tag "Heuristic function"    :type '(choice (function-item :tag "Heuristic function"
5900                                  gnus-button-mid-or-mail-heuristic)                                  gnus-button-mid-or-mail-heuristic)
# Line 5958  must return `mid', `mail', `invalid' or Line 5958  must return `mid', `mail', `invalid' or
5958    
5959  A negative RATE indicates a message IDs, whereas a positive indicates a mail  A negative RATE indicates a message IDs, whereas a positive indicates a mail
5960  address.  The REGEXP is processed with `case-fold-search' set to nil."  address.  The REGEXP is processed with `case-fold-search' set to nil."
5961    :version "21.4"    :version "22.1"
5962    :group 'gnus-article-buttons    :group 'gnus-article-buttons
5963    :type '(repeat (cons (number :tag "Rate")    :type '(repeat (cons (number :tag "Rate")
5964                         (regexp :tag "Regexp"))))                         (regexp :tag "Regexp"))))
# Line 6143  positives are possible.  Note that you c Line 6143  positives are possible.  Note that you c
6143  specific groups.  Setting it higher in TeX groups is probably a good idea.  specific groups.  Setting it higher in TeX groups is probably a good idea.
6144  See Info node `(gnus)Group Parameters' and the variable `gnus-parameters' on  See Info node `(gnus)Group Parameters' and the variable `gnus-parameters' on
6145  how to set variables in specific groups."  how to set variables in specific groups."
6146    :version "21.4"    :version "22.1"
6147    :group 'gnus-article-buttons    :group 'gnus-article-buttons
6148    :link '(custom-manual "(gnus)Group Parameters")    :link '(custom-manual "(gnus)Group Parameters")
6149    :type 'integer)    :type 'integer)
# Line 6155  positives are possible.  Note that you c Line 6155  positives are possible.  Note that you c
6155  specific groups.  Setting it higher in Unix groups is probably a good idea.  specific groups.  Setting it higher in Unix groups is probably a good idea.
6156  See Info node `(gnus)Group Parameters' and the variable `gnus-parameters' on  See Info node `(gnus)Group Parameters' and the variable `gnus-parameters' on
6157  how to set variables in specific groups."  how to set variables in specific groups."
6158    :version "21.4"    :version "22.1"
6159    :group 'gnus-article-buttons    :group 'gnus-article-buttons
6160    :link '(custom-manual "(gnus)Group Parameters")    :link '(custom-manual "(gnus)Group Parameters")
6161    :type 'integer)    :type 'integer)
# Line 6167  positives are possible.  Note that you c Line 6167  positives are possible.  Note that you c
6167  specific groups.  Setting it higher in Emacs or Gnus related groups is  specific groups.  Setting it higher in Emacs or Gnus related groups is
6168  probably a good idea.  See Info node `(gnus)Group Parameters' and the variable  probably a good idea.  See Info node `(gnus)Group Parameters' and the variable
6169  `gnus-parameters' on how to set variables in specific groups."  `gnus-parameters' on how to set variables in specific groups."
6170    :version "21.4"    :version "22.1"
6171    :group 'gnus-article-buttons    :group 'gnus-article-buttons
6172    :link '(custom-manual "(gnus)Group Parameters")    :link '(custom-manual "(gnus)Group Parameters")
6173    :type 'integer)    :type 'integer)
# Line 6177  probably a good idea.  See Info node `(g Line 6177  probably a good idea.  See Info node `(g
6177  The higher the number, the more buttons will appear and the more false  The higher the number, the more buttons will appear and the more false
6178  positives are possible."  positives are possible."
6179    ;; mail addresses, MIDs, URLs for news, ...    ;; mail addresses, MIDs, URLs for news, ...
6180    :version "21.4"    :version "22.1"
6181    :group 'gnus-article-buttons    :group 'gnus-article-buttons
6182    :type 'integer)    :type 'integer)
6183    
# Line 6186  positives are possible." Line 6186  positives are possible."
6186  The higher the number, the more buttons will appear and the more false  The higher the number, the more buttons will appear and the more false
6187  positives are possible."  positives are possible."
6188    ;; stuff handled by `browse-url' or `gnus-button-embedded-url'    ;; stuff handled by `browse-url' or `gnus-button-embedded-url'
6189    :version "21.4"    :version "22.1"
6190    :group 'gnus-article-buttons    :group 'gnus-article-buttons
6191    :type 'integer)    :type 'integer)
6192    
# Line 6716  specified by `gnus-button-alist'." Line 6716  specified by `gnus-button-alist'."
6716    (if (string-match "\\([^#]+\\)#?\\(.*\\)" url)    (if (string-match "\\([^#]+\\)#?\\(.*\\)" url)
6717        (gnus-info-find-node        (gnus-info-find-node
6718         (concat "("         (concat "("
6719                 (gnus-url-unhex-string                 (gnus-url-unhex-string
6720                   (match-string 1 url))                   (match-string 1 url))
6721                 ")"                 ")"
6722                 (or (gnus-url-unhex-string                 (or (gnus-url-unhex-string
6723                      (match-string 2 url))                      (match-string 2 url))
6724                     "Top")))                     "Top")))
6725      (error "Can't parse %s" url)))      (error "Can't parse %s" url)))

Legend:
Removed from v.1.61  
changed lines
  Added in v.1.62

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26