Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-art.el @ 118:7d55a9ba150c r20-1b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b11
author cvs
date Mon, 13 Aug 2007 09:24:17 +0200
parents 9f59509498e1
children cca96a509cfe
comparison
equal deleted inserted replaced
117:578fd4947a72 118:7d55a9ba150c
113 (widget-editable-list-match widget value))) 113 (widget-editable-list-match widget value)))
114 regexp) 114 regexp)
115 :group 'gnus-article-hiding) 115 :group 'gnus-article-hiding)
116 116
117 (defcustom gnus-sorted-header-list 117 (defcustom gnus-sorted-header-list
118 '("^From:" "^Subject:" "^Summary:" "^Keywords:" "^Newsgroups:" "^To:" 118 '("^From:" "^Subject:" "^Summary:" "^Keywords:" "^Newsgroups:"
119 "^Cc:" "^Date:" "^Organization:") 119 "^Followup-To:" "^To:" "^Cc:" "^Date:" "^Organization:")
120 "This variable is a list of regular expressions. 120 "This variable is a list of regular expressions.
121 If it is non-nil, headers that match the regular expressions will 121 If it is non-nil, headers that match the regular expressions will
122 be placed first in the article buffer in the sequence specified by 122 be placed first in the article buffer in the sequence specified by
123 this list." 123 this list."
124 :type '(repeat regexp) 124 :type '(repeat regexp)
172 :type 'regexp 172 :type 'regexp
173 :group 'gnus-article-washing) 173 :group 'gnus-article-washing)
174 174
175 (defcustom gnus-emphasis-alist 175 (defcustom gnus-emphasis-alist
176 (let ((format 176 (let ((format
177 "\\(\\s-\\|^\\|[-\"\(]\\)\\(%s\\(\\w+\\(\\s-+\\w+\\)*[.,]?\\)%s\\)\\(\\s-\\|[-?!.,;:\"\)]\\)") 177 "\\(\\s-\\|^\\|[-\"]\\|\\s(\\|\\s)\\)\\(%s\\(\\w+\\(\\s-+\\w+\\)*[.,]?\\)%s\\)\\(\\s-\\|[-?!.,;:\"]\\|\\s(\\|\\s)\\)")
178 (types 178 (types
179 '(("_" "_" underline) 179 '(("_" "_" underline)
180 ("/" "/" italic) 180 ("/" "/" italic)
181 ("\\*" "\\*" bold) 181 ("\\*" "\\*" bold)
182 ("_/" "/_" underline-italic) 182 ("_/" "/_" underline-italic)
510 ;;; Internal variables 510 ;;; Internal variables
511 511
512 (defvar gnus-article-mode-syntax-table 512 (defvar gnus-article-mode-syntax-table
513 (let ((table (copy-syntax-table text-mode-syntax-table))) 513 (let ((table (copy-syntax-table text-mode-syntax-table)))
514 (modify-syntax-entry ?- "w" table) 514 (modify-syntax-entry ?- "w" table)
515 (modify-syntax-entry ?> ")" table)
516 (modify-syntax-entry ?< "(" table)
515 table) 517 table)
516 "Syntax table used in article mode buffers. 518 "Syntax table used in article mode buffers.
517 Initialized from `text-mode-syntax-table.") 519 Initialized from `text-mode-syntax-table.")
518 520
519 (defvar gnus-save-article-buffer nil) 521 (defvar gnus-save-article-buffer nil)
1394 (set-buffer gnus-summary-buffer) 1396 (set-buffer gnus-summary-buffer)
1395 (funcall gnus-default-article-saver filename))))) 1397 (funcall gnus-default-article-saver filename)))))
1396 1398
1397 (defun gnus-read-save-file-name (prompt &optional filename 1399 (defun gnus-read-save-file-name (prompt &optional filename
1398 function group headers variable) 1400 function group headers variable)
1399 (let ((default-name (funcall function group headers 1401 (let ((default-name
1400 (symbol-value variable))) 1402 (funcall function group headers (symbol-value variable)))
1401 result) 1403 result)
1402 (setq 1404 (setq
1403 result 1405 result
1404 (cond 1406 (cond
1405 ((eq filename 'default) 1407 ((eq filename 'default)
1408 default-name)
1409 ((eq filename t)
1406 default-name) 1410 default-name)
1407 (filename filename) 1411 (filename filename)
1408 (t 1412 (t
1409 (let* ((split-name (gnus-get-split-value gnus-split-methods)) 1413 (let* ((split-name (gnus-get-split-value gnus-split-methods))
1410 (prompt 1414 (prompt
2757 (goto-char beg) 2761 (goto-char beg)
2758 (while (re-search-forward regexp nil t) 2762 (while (re-search-forward regexp nil t)
2759 (let* ((start (and entry (match-beginning (nth 1 entry)))) 2763 (let* ((start (and entry (match-beginning (nth 1 entry))))
2760 (end (and entry (match-end (nth 1 entry)))) 2764 (end (and entry (match-end (nth 1 entry))))
2761 (from (match-beginning 0))) 2765 (from (match-beginning 0)))
2762 (when (and (or (eq t (nth 1 entry)) 2766 (when (and (or (eq t (nth 2 entry))
2763 (eval (nth 1 entry))) 2767 (eval (nth 2 entry)))
2764 (not (gnus-button-in-region-p 2768 (not (gnus-button-in-region-p
2765 start end 'gnus-callback))) 2769 start end 'gnus-callback)))
2766 ;; That optional form returned non-nil, so we add the 2770 ;; That optional form returned non-nil, so we add the
2767 ;; button. 2771 ;; button.
2768 (gnus-article-add-button 2772 (gnus-article-add-button