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 |
|
|
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) |
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 |
|
|
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)) |
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") |
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) |
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) |
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) |
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) |
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) |
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) |
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) |
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) |
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") |
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") |
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") |
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) |
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) |
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") |
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 |
|
|
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 |
|
|
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 |
|
|
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 |
|
|
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 |
|
|
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")) |
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/") |
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"))) |
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 |
|
|
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 |
|
|
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) |
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")))) |
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) |
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) |
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) |
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 |
|
|
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 |
|
|
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))) |