842 |
:type '(choice (item :tag "None" :value nil) |
:type '(choice (item :tag "None" :value nil) |
843 |
string)) |
string)) |
844 |
|
|
845 |
(defcustom gnus-picon-databases '("/usr/lib/picon" "/usr/local/faces") |
(defcustom gnus-picon-databases '("/usr/lib/picon" "/usr/local/faces" |
846 |
|
"/usr/share/picons") |
847 |
"Defines the location of the faces database. |
"Defines the location of the faces database. |
848 |
For information on obtaining this database of pretty pictures, please |
For information on obtaining this database of pretty pictures, please |
849 |
see http://www.cs.indiana.edu/picons/ftp/index.html" |
see http://www.cs.indiana.edu/picons/ftp/index.html" |
2429 |
(let ((inhibit-read-only t)) |
(let ((inhibit-read-only t)) |
2430 |
(goto-char (point-min)) |
(goto-char (point-min)) |
2431 |
(while (re-search-forward |
(while (re-search-forward |
2432 |
"^\\(\\(https?\\|ftp\\)://\\S-+\\) *\n\\(\\S-+\\)" nil t) |
"\\(\\(https?\\|ftp\\)://\\S-+\\) *\n\\(\\S-+\\)" nil t) |
2433 |
(replace-match "\\1\\3" t))) |
(replace-match "\\1\\3" t))) |
2434 |
(when (interactive-p) |
(when (interactive-p) |
2435 |
(gnus-treat-article nil)))) |
(gnus-treat-article nil)))) |
5887 |
:group 'gnus-article-buttons |
:group 'gnus-article-buttons |
5888 |
:type 'regexp) |
:type 'regexp) |
5889 |
|
|
5890 |
|
;; Regexp suggested by Felix Wiemann in <87oeuomcz9.fsf@news2.ososo.de> |
5891 |
|
(defcustom gnus-button-valid-localpart-regexp |
5892 |
|
"[a-z0-9$%(*-=?[_][^<>\")!;:,{}\n\t ]*" |
5893 |
|
"Regular expression that matches a localpart of mail addresses or MIDs." |
5894 |
|
:version "22.1" |
5895 |
|
:group 'gnus-article-buttons |
5896 |
|
:type 'regexp) |
5897 |
|
|
5898 |
(defcustom gnus-button-man-handler 'manual-entry |
(defcustom gnus-button-man-handler 'manual-entry |
5899 |
"Function to use for displaying man pages. |
"Function to use for displaying man pages. |
5900 |
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 |
5934 |
(regexp :tag "Other"))) |
(regexp :tag "Other"))) |
5935 |
|
|
5936 |
(defcustom gnus-button-ctan-directory-regexp |
(defcustom gnus-button-ctan-directory-regexp |
5937 |
(concat |
(regexp-opt |
5938 |
"\\("; Cannot use `\(?: ... \)' (compatibility with Emacs 20). |
(list "archive-tools" "biblio" "bibliography" "digests" "documentation" |
5939 |
"biblio\\|digests\\|dviware\\|fonts\\|graphics\\|help\\|" |
"dviware" "fonts" "graphics" "help" "indexing" "info" "language" |
5940 |
"indexing\\|info\\|language\\|macros\\|support\\|systems\\|" |
"languages" "macros" "nonfree" "obsolete" "support" "systems" |
5941 |
"tds\\|tools\\|usergrps\\|web\\|nonfree\\|obsolete" |
"tds" "tools" "usergrps" "web") t) |
|
"\\)") |
|
5942 |
"Regular expression for ctan directories. |
"Regular expression for ctan directories. |
5943 |
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'." |
5944 |
:version "22.1" |
:version "22.1" |
5946 |
:type 'regexp) |
:type 'regexp) |
5947 |
|
|
5948 |
(defcustom gnus-button-mid-or-mail-regexp |
(defcustom gnus-button-mid-or-mail-regexp |
5949 |
(concat "\\b\\(<?[a-z0-9$%(*-=?[_][^<>\")!;:,{}\n\t ]*@" |
(concat "\\b\\(<?" gnus-button-valid-localpart-regexp "@" |
|
;; Felix Wiemann in <87oeuomcz9.fsf@news2.ososo.de> |
|
5950 |
gnus-button-valid-fqdn-regexp |
gnus-button-valid-fqdn-regexp |
5951 |
">?\\)\\b") |
">?\\)\\b") |
5952 |
"Regular expression that matches a message ID or a mail address." |
"Regular expression that matches a message ID or a mail address." |
6261 |
(defcustom gnus-button-alist |
(defcustom gnus-button-alist |
6262 |
'(("<\\(url:[>\n\t ]*?\\)?\\(nntp\\|news\\):[>\n\t ]*\\([^>\n\t ]*@[^>\n\t ]*\\)>" |
'(("<\\(url:[>\n\t ]*?\\)?\\(nntp\\|news\\):[>\n\t ]*\\([^>\n\t ]*@[^>\n\t ]*\\)>" |
6263 |
0 (>= gnus-button-message-level 0) gnus-button-handle-news 3) |
0 (>= gnus-button-message-level 0) gnus-button-handle-news 3) |
6264 |
("\\b\\(nntp\\|news\\):\\([^>\n\t ]*@[^>)!;:,\n\t ]*\\)" 0 t |
((concat "\\b\\(nntp\\|news\\):\\(" |
6265 |
gnus-button-handle-news 2) |
gnus-button-valid-localpart-regexp "@[a-z0-9.-]+[a-z]\\)") |
6266 |
|
0 t gnus-button-handle-news 2) |
6267 |
("\\(\\b<\\(url:[>\n\t ]*\\)?\\(nntp\\|news\\):[>\n\t ]*\\(//\\)?\\([^>\n\t ]*\\)>\\)" |
("\\(\\b<\\(url:[>\n\t ]*\\)?\\(nntp\\|news\\):[>\n\t ]*\\(//\\)?\\([^>\n\t ]*\\)>\\)" |
6268 |
1 (>= gnus-button-message-level 0) gnus-button-fetch-group 5) |
1 (>= gnus-button-message-level 0) gnus-button-fetch-group 5) |
6269 |
("\\b\\(nntp\\|news\\):\\(//\\)?\\([^'\">\n\t ]+\\)" |
("\\b\\(nntp\\|news\\):\\(//\\)?\\([^'\">\n\t ]+\\)" |