/[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.88 by miles, Sun Jul 31 00:12:23 2005 UTC revision 1.89 by miles, Fri Aug 5 08:37:44 2005 UTC
# Line 842  be controlled by `gnus-treat-body-bounda Line 842  be controlled by `gnus-treat-body-bounda
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"
# Line 2428  If READ-CHARSET, ask for a coding system Line 2429  If READ-CHARSET, ask for a coding system
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))))
# Line 5886  groups." Line 5887  groups."
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
# Line 5925  The function must take one argument, the Line 5934  The function must take one argument, 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"
# Line 5938  It should match all directories in the t Line 5946  It should match all directories in the t
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."
# Line 6254  positives are possible." Line 6261  positives are possible."
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 ]+\\)"

Legend:
Removed from v.1.88  
changed lines
  Added in v.1.89

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