207 |
(if (and (fboundp 'image-type-available-p) |
(if (and (fboundp 'image-type-available-p) |
208 |
(image-type-available-p 'xbm)) |
(image-type-available-p 'xbm)) |
209 |
'gnus-article-display-xface |
'gnus-article-display-xface |
210 |
(if gnus-article-compface-xbm |
(if (or (and (boundp 'gnus-article-compface-xbm) |
211 |
|
gnus-article-compface-xbm) |
212 |
|
(eq 0 (string-match "#define" |
213 |
|
(shell-command-to-string "uncompface -X")))) |
214 |
"{ echo '/* Width=48, Height=48 */'; uncompface; } | display -" |
"{ echo '/* Width=48, Height=48 */'; uncompface; } | display -" |
215 |
"{ echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm | \ |
"{ echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm | \ |
216 |
display -")) |
display -")) |
230 |
|
|
231 |
(defcustom gnus-article-banner-alist nil |
(defcustom gnus-article-banner-alist nil |
232 |
"Banner alist for stripping. |
"Banner alist for stripping. |
233 |
For example, |
For example, |
234 |
((egroups . \"^[ \\t\\n]*-------------------+\\\\( eGroups Sponsor -+\\\\)?....\\n\\\\(.+\\n\\\\)+\"))" |
((egroups . \"^[ \\t\\n]*-------------------+\\\\( eGroups Sponsor -+\\\\)?....\\n\\\\(.+\\n\\\\)+\"))" |
235 |
:version "21.1" |
:version "21.1" |
236 |
:type '(repeat (cons symbol regexp)) |
:type '(repeat (cons symbol regexp)) |
308 |
(defface gnus-emphasis-underline-bold-italic |
(defface gnus-emphasis-underline-bold-italic |
309 |
'((t (:weight bold :slant italic :underline t))) |
'((t (:weight bold :slant italic :underline t))) |
310 |
"Face used for displaying underlined bold italic emphasized text. |
"Face used for displaying underlined bold italic emphasized text. |
311 |
Esample: (_/*word*/_)." |
Example: (_/*word*/_)." |
312 |
:group 'gnus-article-emphasis) |
:group 'gnus-article-emphasis) |
313 |
|
|
314 |
(defface gnus-emphasis-highlight-words |
(defface gnus-emphasis-highlight-words |
658 |
(defcustom gnus-article-mime-match-handle-function 'undisplayed-alternative |
(defcustom gnus-article-mime-match-handle-function 'undisplayed-alternative |
659 |
"Function called with a MIME handle as the argument. |
"Function called with a MIME handle as the argument. |
660 |
This is meant for people who want to view first matched part. |
This is meant for people who want to view first matched part. |
661 |
For `undisplayed-alternative' (default), the first undisplayed |
For `undisplayed-alternative' (default), the first undisplayed |
662 |
part or alternative part is used. For `undisplayed', the first |
part or alternative part is used. For `undisplayed', the first |
663 |
undisplayed part is used. For a function, the first part which |
undisplayed part is used. For a function, the first part which |
664 |
the function return `t' is used. For `nil', the first part is |
the function return `t' is used. For `nil', the first part is |
665 |
used." |
used." |
666 |
:version "21.1" |
:version "21.1" |
667 |
:group 'gnus-article-mime |
:group 'gnus-article-mime |
668 |
:type '(choice |
:type '(choice |
669 |
(item :tag "first" :value nil) |
(item :tag "first" :value nil) |
670 |
(item :tag "undisplayed" :value undisplayed) |
(item :tag "undisplayed" :value undisplayed) |
671 |
(item :tag "undisplayed or alternative" |
(item :tag "undisplayed or alternative" |
672 |
:value undisplayed-alternative) |
:value undisplayed-alternative) |
673 |
(function))) |
(function))) |
674 |
|
|
737 |
:type gnus-article-treat-head-custom) |
:type gnus-article-treat-head-custom) |
738 |
(put 'gnus-treat-buttonize-head 'highlight t) |
(put 'gnus-treat-buttonize-head 'highlight t) |
739 |
|
|
740 |
(defcustom gnus-treat-emphasize |
(defcustom gnus-treat-emphasize |
741 |
(and (or window-system |
(and (or window-system |
742 |
(featurep 'xemacs) |
(featurep 'xemacs) |
743 |
(>= (string-to-number emacs-version) 21)) |
(>= (string-to-number emacs-version) 21)) |
925 |
:type gnus-article-treat-custom) |
:type gnus-article-treat-custom) |
926 |
(put 'gnus-treat-overstrike 'highlight t) |
(put 'gnus-treat-overstrike 'highlight t) |
927 |
|
|
928 |
(defcustom gnus-treat-display-xface |
(defcustom gnus-treat-display-xface |
929 |
(and (or (and (fboundp 'image-type-available-p) |
(and (or (and (fboundp 'image-type-available-p) |
930 |
(image-type-available-p 'xbm) |
(image-type-available-p 'xbm) |
931 |
(string-match "^0x" (shell-command-to-string "uncompface"))) |
(string-match "^0x" (shell-command-to-string "uncompface"))) |
939 |
:type gnus-article-treat-head-custom) |
:type gnus-article-treat-head-custom) |
940 |
(put 'gnus-treat-display-xface 'highlight t) |
(put 'gnus-treat-display-xface 'highlight t) |
941 |
|
|
942 |
(defcustom gnus-treat-display-smileys |
(defcustom gnus-treat-display-smileys |
943 |
(if (or (and (featurep 'xemacs) |
(if (or (and (featurep 'xemacs) |
944 |
(featurep 'xpm)) |
(featurep 'xpm)) |
945 |
(and (fboundp 'image-type-available-p) |
(and (fboundp 'image-type-available-p) |
1512 |
(let ((inhibit-point-motion-hooks t) |
(let ((inhibit-point-motion-hooks t) |
1513 |
buffer-read-only |
buffer-read-only |
1514 |
(mail-parse-charset gnus-newsgroup-charset) |
(mail-parse-charset gnus-newsgroup-charset) |
1515 |
(mail-parse-ignored-charsets |
(mail-parse-ignored-charsets |
1516 |
(save-excursion (set-buffer gnus-summary-buffer) |
(save-excursion (set-buffer gnus-summary-buffer) |
1517 |
gnus-newsgroup-ignored-charsets))) |
gnus-newsgroup-ignored-charsets))) |
1518 |
(mail-decode-encoded-word-region (point-min) (point-max))))) |
(mail-decode-encoded-word-region (point-min) (point-max))))) |
1524 |
(let ((inhibit-point-motion-hooks t) (case-fold-search t) |
(let ((inhibit-point-motion-hooks t) (case-fold-search t) |
1525 |
buffer-read-only |
buffer-read-only |
1526 |
(mail-parse-charset gnus-newsgroup-charset) |
(mail-parse-charset gnus-newsgroup-charset) |
1527 |
(mail-parse-ignored-charsets |
(mail-parse-ignored-charsets |
1528 |
(save-excursion (condition-case nil |
(save-excursion (condition-case nil |
1529 |
(set-buffer gnus-summary-buffer) |
(set-buffer gnus-summary-buffer) |
1530 |
(error)) |
(error)) |
1545 |
format (and ctl (mail-content-type-get ctl 'format))) |
format (and ctl (mail-content-type-get ctl 'format))) |
1546 |
(when cte |
(when cte |
1547 |
(setq cte (mail-header-strip cte))) |
(setq cte (mail-header-strip cte))) |
1548 |
(if (and ctl (not (string-match "/" (car ctl)))) |
(if (and ctl (not (string-match "/" (car ctl)))) |
1549 |
(setq ctl nil)) |
(setq ctl nil)) |
1550 |
(goto-char (point-max))) |
(goto-char (point-max))) |
1551 |
(forward-line 1) |
(forward-line 1) |
1567 |
"Remove encoded-word encoding from headers." |
"Remove encoded-word encoding from headers." |
1568 |
(let ((inhibit-point-motion-hooks t) |
(let ((inhibit-point-motion-hooks t) |
1569 |
(mail-parse-charset gnus-newsgroup-charset) |
(mail-parse-charset gnus-newsgroup-charset) |
1570 |
(mail-parse-ignored-charsets |
(mail-parse-ignored-charsets |
1571 |
(save-excursion (condition-case nil |
(save-excursion (condition-case nil |
1572 |
(set-buffer gnus-summary-buffer) |
(set-buffer gnus-summary-buffer) |
1573 |
(error)) |
(error)) |
1589 |
(setq type |
(setq type |
1590 |
(gnus-fetch-field "content-transfer-encoding")) |
(gnus-fetch-field "content-transfer-encoding")) |
1591 |
(let* ((ct (gnus-fetch-field "content-type")) |
(let* ((ct (gnus-fetch-field "content-type")) |
1592 |
(ctl (and ct |
(ctl (and ct |
1593 |
(ignore-errors |
(ignore-errors |
1594 |
(mail-header-parse-content-type ct))))) |
(mail-header-parse-content-type ct))))) |
1595 |
(setq charset (and ctl |
(setq charset (and ctl |
1596 |
(mail-content-type-get ctl 'charset))) |
(mail-content-type-get ctl 'charset))) |
1597 |
(if (stringp charset) |
(if (stringp charset) |
1598 |
(setq charset (intern (downcase charset))))))) |
(setq charset (intern (downcase charset))))))) |
1599 |
(unless charset |
(unless charset |
1600 |
(setq charset gnus-newsgroup-charset)) |
(setq charset gnus-newsgroup-charset)) |
1601 |
(when (or force |
(when (or force |
1602 |
(and type (let ((case-fold-search t)) |
(and type (let ((case-fold-search t)) |
1616 |
(setq type |
(setq type |
1617 |
(gnus-fetch-field "content-transfer-encoding")) |
(gnus-fetch-field "content-transfer-encoding")) |
1618 |
(let* ((ct (gnus-fetch-field "content-type")) |
(let* ((ct (gnus-fetch-field "content-type")) |
1619 |
(ctl (and ct |
(ctl (and ct |
1620 |
(ignore-errors |
(ignore-errors |
1621 |
(mail-header-parse-content-type ct))))) |
(mail-header-parse-content-type ct))))) |
1622 |
(setq charset (and ctl |
(setq charset (and ctl |
1623 |
(mail-content-type-get ctl 'charset))) |
(mail-content-type-get ctl 'charset))) |
1624 |
(if (stringp charset) |
(if (stringp charset) |
1625 |
(setq charset (intern (downcase charset))))))) |
(setq charset (intern (downcase charset))))))) |
1626 |
(unless charset |
(unless charset |
1627 |
(setq charset gnus-newsgroup-charset)) |
(setq charset gnus-newsgroup-charset)) |
1628 |
(when (or force |
(when (or force |
1629 |
(and type (let ((case-fold-search t)) |
(and type (let ((case-fold-search t)) |
1655 |
(if (gnus-buffer-live-p gnus-original-article-buffer) |
(if (gnus-buffer-live-p gnus-original-article-buffer) |
1656 |
(with-current-buffer gnus-original-article-buffer |
(with-current-buffer gnus-original-article-buffer |
1657 |
(let* ((ct (gnus-fetch-field "content-type")) |
(let* ((ct (gnus-fetch-field "content-type")) |
1658 |
(ctl (and ct |
(ctl (and ct |
1659 |
(ignore-errors |
(ignore-errors |
1660 |
(mail-header-parse-content-type ct))))) |
(mail-header-parse-content-type ct))))) |
1661 |
(setq charset (and ctl |
(setq charset (and ctl |
1662 |
(mail-content-type-get ctl 'charset))) |
(mail-content-type-get ctl 'charset))) |
1663 |
(if (stringp charset) |
(if (stringp charset) |
1664 |
(setq charset (intern (downcase charset))))))) |
(setq charset (intern (downcase charset))))))) |
1665 |
(unless charset |
(unless charset |
1666 |
(setq charset gnus-newsgroup-charset)) |
(setq charset gnus-newsgroup-charset)) |
1667 |
(article-goto-body) |
(article-goto-body) |
1668 |
(save-window-excursion |
(save-window-excursion |
1690 |
(when regexp |
(when regexp |
1691 |
(goto-char (point-min)) |
(goto-char (point-min)) |
1692 |
(when (re-search-forward |
(when (re-search-forward |
1693 |
(concat "^Subject: +\\(\\(\\(Re: +\\)?\\(" regexp |
(concat "^Subject: +\\(\\(\\(Re: +\\)?\\(" regexp |
1694 |
" *\\)\\)+\\(Re: +\\)?\\)") |
" *\\)\\)+\\(Re: +\\)?\\)") |
1695 |
nil t) |
nil t) |
1696 |
(let ((s (or (match-string 3) (match-string 5)))) |
(let ((s (or (match-string 3) (match-string 5)))) |
2003 |
Originally it is hide instead of DUMMY." |
Originally it is hide instead of DUMMY." |
2004 |
(let ((buffer-read-only nil) |
(let ((buffer-read-only nil) |
2005 |
(inhibit-point-motion-hooks t)) |
(inhibit-point-motion-hooks t)) |
2006 |
(gnus-remove-text-properties-when |
(gnus-remove-text-properties-when |
2007 |
'article-type type |
'article-type type |
2008 |
(point-min) (point-max) |
(point-min) (point-max) |
2009 |
(cons 'article-type (cons type |
(cons 'article-type (cons type |
2010 |
gnus-hidden-properties))))) |
gnus-hidden-properties))))) |
2011 |
|
|
2093 |
((eq type 'local) |
((eq type 'local) |
2094 |
(let ((tz (car (current-time-zone time)))) |
(let ((tz (car (current-time-zone time)))) |
2095 |
(format "Date: %s %s%02d%02d" (current-time-string time) |
(format "Date: %s %s%02d%02d" (current-time-string time) |
2096 |
(if (> tz 0) "+" "-") (/ (abs tz) 3600) |
(if (> tz 0) "+" "-") (/ (abs tz) 3600) |
2097 |
(/ (% (abs tz) 3600) 60)))) |
(/ (% (abs tz) 3600) 60)))) |
2098 |
;; Convert to Universal Time. |
;; Convert to Universal Time. |
2099 |
((eq type 'ut) |
((eq type 'ut) |
2126 |
"Date: " |
"Date: " |
2127 |
(format-time-string "%Y%m%dT%H%M%S" time) |
(format-time-string "%Y%m%dT%H%M%S" time) |
2128 |
(format "%s%02d%02d" |
(format "%s%02d%02d" |
2129 |
(if (> tz 0) "+" "-") (/ (abs tz) 3600) |
(if (> tz 0) "+" "-") (/ (abs tz) 3600) |
2130 |
(/ (% (abs tz) 3600) 60))))) |
(/ (% (abs tz) 3600) 60))))) |
2131 |
;; Do an X-Sent lapsed format. |
;; Do an X-Sent lapsed format. |
2132 |
((eq type 'lapsed) |
((eq type 'lapsed) |
2246 |
(interactive (gnus-article-hidden-arg)) |
(interactive (gnus-article-hidden-arg)) |
2247 |
(unless (gnus-article-check-hidden-text 'emphasis arg) |
(unless (gnus-article-check-hidden-text 'emphasis arg) |
2248 |
(save-excursion |
(save-excursion |
2249 |
(let ((alist (or |
(let ((alist (or |
2250 |
(condition-case nil |
(condition-case nil |
2251 |
(with-current-buffer gnus-summary-buffer |
(with-current-buffer gnus-summary-buffer |
2252 |
gnus-article-emphasis-alist) |
gnus-article-emphasis-alist) |
2253 |
(error)) |
(error)) |
2254 |
gnus-emphasis-alist)) |
gnus-emphasis-alist)) |
2255 |
(buffer-read-only nil) |
(buffer-read-only nil) |
2281 |
(let ((name (and gnus-newsgroup-name |
(let ((name (and gnus-newsgroup-name |
2282 |
(gnus-group-real-name gnus-newsgroup-name)))) |
(gnus-group-real-name gnus-newsgroup-name)))) |
2283 |
(make-local-variable 'gnus-article-emphasis-alist) |
(make-local-variable 'gnus-article-emphasis-alist) |
2284 |
(setq gnus-article-emphasis-alist |
(setq gnus-article-emphasis-alist |
2285 |
(nconc |
(nconc |
2286 |
(let ((alist gnus-group-highlight-words-alist) elem highlight) |
(let ((alist gnus-group-highlight-words-alist) elem highlight) |
2287 |
(while (setq elem (pop alist)) |
(while (setq elem (pop alist)) |
2288 |
(when (and name (string-match (car elem) name)) |
(when (and name (string-match (car elem) name)) |
2291 |
highlight) |
highlight) |
2292 |
(copy-sequence highlight-words) |
(copy-sequence highlight-words) |
2293 |
(if gnus-newsgroup-name |
(if gnus-newsgroup-name |
2294 |
(copy-sequence (gnus-group-find-parameter |
(copy-sequence (gnus-group-find-parameter |
2295 |
gnus-newsgroup-name 'highlight-words t))) |
gnus-newsgroup-name 'highlight-words t))) |
2296 |
gnus-emphasis-alist))))) |
gnus-emphasis-alist))))) |
2297 |
|
|
2336 |
(funcall function group headers (symbol-value variable))) |
(funcall function group headers (symbol-value variable))) |
2337 |
result) |
result) |
2338 |
(setq result |
(setq result |
2339 |
(expand-file-name |
(expand-file-name |
2340 |
(cond |
(cond |
2341 |
((eq filename 'default) |
((eq filename 'default) |
2342 |
default-name) |
default-name) |
2701 |
;; Note "Commands" menu is defined in gnus-sum.el for consistency |
;; Note "Commands" menu is defined in gnus-sum.el for consistency |
2702 |
|
|
2703 |
(when (boundp 'gnus-summary-post-menu) |
(when (boundp 'gnus-summary-post-menu) |
2704 |
(cond |
(cond |
2705 |
((not (keymapp gnus-summary-post-menu)) |
((not (keymapp gnus-summary-post-menu)) |
2706 |
(setq gnus-article-post-menu gnus-summary-post-menu)) |
(setq gnus-article-post-menu gnus-summary-post-menu)) |
2707 |
((not gnus-article-post-menu) |
((not gnus-article-post-menu) |
2787 |
(mm-destroy-parts gnus-article-mime-handles) |
(mm-destroy-parts gnus-article-mime-handles) |
2788 |
(setq gnus-article-mime-handles nil)) |
(setq gnus-article-mime-handles nil)) |
2789 |
;; Set it to nil in article-buffer! |
;; Set it to nil in article-buffer! |
2790 |
(setq gnus-article-mime-handle-alist nil) |
(setq gnus-article-mime-handle-alist nil) |
2791 |
(buffer-disable-undo) |
(buffer-disable-undo) |
2792 |
(setq buffer-read-only t) |
(setq buffer-read-only t) |
2793 |
(unless (eq major-mode 'gnus-article-mode) |
(unless (eq major-mode 'gnus-article-mode) |
3011 |
(set-buffer gnus-article-buffer) |
(set-buffer gnus-article-buffer) |
3012 |
(let ((handles (or handles gnus-article-mime-handles)) |
(let ((handles (or handles gnus-article-mime-handles)) |
3013 |
(mail-parse-charset gnus-newsgroup-charset) |
(mail-parse-charset gnus-newsgroup-charset) |
3014 |
(mail-parse-ignored-charsets |
(mail-parse-ignored-charsets |
3015 |
(save-excursion (set-buffer gnus-summary-buffer) |
(save-excursion (set-buffer gnus-summary-buffer) |
3016 |
gnus-newsgroup-ignored-charsets))) |
gnus-newsgroup-ignored-charsets))) |
3017 |
(if (stringp (car handles)) |
(if (stringp (car handles)) |
3109 |
gnus-newsgroup-charset))) |
gnus-newsgroup-charset))) |
3110 |
((numberp arg) |
((numberp arg) |
3111 |
(setq charset |
(setq charset |
3112 |
(or (cdr (assq arg |
(or (cdr (assq arg |
3113 |
gnus-summary-show-article-charset-alist)) |
gnus-summary-show-article-charset-alist)) |
3114 |
(read-coding-system "Charset: "))))) |
(read-coding-system "Charset: "))))) |
3115 |
(forward-line 2) |
(forward-line 2) |
3116 |
(mm-insert-inline handle |
(mm-insert-inline handle |
3117 |
(if (and charset |
(if (and charset |
3118 |
(setq charset (mm-charset-to-coding-system |
(setq charset (mm-charset-to-coding-system |
3119 |
charset)) |
charset)) |
3120 |
(not (eq charset 'ascii))) |
(not (eq charset 'ascii))) |
3121 |
(mm-decode-coding-string contents charset) |
(mm-decode-coding-string contents charset) |
3130 |
(mm-user-display-methods nil) |
(mm-user-display-methods nil) |
3131 |
(mm-inlined-types nil) |
(mm-inlined-types nil) |
3132 |
(mail-parse-charset gnus-newsgroup-charset) |
(mail-parse-charset gnus-newsgroup-charset) |
3133 |
(mail-parse-ignored-charsets |
(mail-parse-ignored-charsets |
3134 |
(save-excursion (set-buffer gnus-summary-buffer) |
(save-excursion (set-buffer gnus-summary-buffer) |
3135 |
gnus-newsgroup-ignored-charsets))) |
gnus-newsgroup-ignored-charsets))) |
3136 |
(if (mm-handle-undisplayer handle) |
(if (mm-handle-undisplayer handle) |
3146 |
(mm-inlined-types '(".*")) |
(mm-inlined-types '(".*")) |
3147 |
(mm-inline-large-images t) |
(mm-inline-large-images t) |
3148 |
(mail-parse-charset gnus-newsgroup-charset) |
(mail-parse-charset gnus-newsgroup-charset) |
3149 |
(mail-parse-ignored-charsets |
(mail-parse-ignored-charsets |
3150 |
(save-excursion (set-buffer gnus-summary-buffer) |
(save-excursion (set-buffer gnus-summary-buffer) |
3151 |
gnus-newsgroup-ignored-charsets))) |
gnus-newsgroup-ignored-charsets))) |
3152 |
(if (mm-handle-undisplayer handle) |
(if (mm-handle-undisplayer handle) |
3206 |
(if condition |
(if condition |
3207 |
(let ((alist gnus-article-mime-handle-alist) ihandle n) |
(let ((alist gnus-article-mime-handle-alist) ihandle n) |
3208 |
(while (setq ihandle (pop alist)) |
(while (setq ihandle (pop alist)) |
3209 |
(if (and (cond |
(if (and (cond |
3210 |
((functionp condition) |
((functionp condition) |
3211 |
(funcall condition (cdr ihandle))) |
(funcall condition (cdr ihandle))) |
3212 |
((eq condition 'undisplayed) |
((eq condition 'undisplayed) |
3213 |
(not (or (mm-handle-undisplayer (cdr ihandle)) |
(not (or (mm-handle-undisplayer (cdr ihandle)) |
3214 |
(equal (mm-handle-media-type (cdr ihandle)) |
(equal (mm-handle-media-type (cdr ihandle)) |
3215 |
"multipart/alternative")))) |
"multipart/alternative")))) |
3227 |
(interactive "P") |
(interactive "P") |
3228 |
(save-current-buffer |
(save-current-buffer |
3229 |
(set-buffer gnus-article-buffer) |
(set-buffer gnus-article-buffer) |
3230 |
(or (numberp n) (setq n (gnus-article-mime-match-handle-first |
(or (numberp n) (setq n (gnus-article-mime-match-handle-first |
3231 |
gnus-article-mime-match-handle-function))) |
gnus-article-mime-match-handle-function))) |
3232 |
(when (> n (length gnus-article-mime-handle-alist)) |
(when (> n (length gnus-article-mime-handle-alist)) |
3233 |
(error "No such part")) |
(error "No such part")) |
3252 |
(prog1 |
(prog1 |
3253 |
(let ((window (selected-window)) |
(let ((window (selected-window)) |
3254 |
(mail-parse-charset gnus-newsgroup-charset) |
(mail-parse-charset gnus-newsgroup-charset) |
3255 |
(mail-parse-ignored-charsets |
(mail-parse-ignored-charsets |
3256 |
(save-excursion (set-buffer gnus-summary-buffer) |
(save-excursion (set-buffer gnus-summary-buffer) |
3257 |
gnus-newsgroup-ignored-charsets))) |
gnus-newsgroup-ignored-charsets))) |
3258 |
(save-excursion |
(save-excursion |
3483 |
(forward-line -2) |
(forward-line -2) |
3484 |
(setq beg (point))) |
(setq beg (point))) |
3485 |
(let ((mail-parse-charset gnus-newsgroup-charset) |
(let ((mail-parse-charset gnus-newsgroup-charset) |
3486 |
(mail-parse-ignored-charsets |
(mail-parse-ignored-charsets |
3487 |
(save-excursion (condition-case () |
(save-excursion (condition-case () |
3488 |
(set-buffer gnus-summary-buffer) |
(set-buffer gnus-summary-buffer) |
3489 |
(error)) |
(error)) |
3502 |
(save-restriction |
(save-restriction |
3503 |
(narrow-to-region beg (point)) |
(narrow-to-region beg (point)) |
3504 |
(gnus-treat-article |
(gnus-treat-article |
3505 |
nil id |
nil id |
3506 |
(gnus-article-mime-total-parts) |
(gnus-article-mime-total-parts) |
3507 |
(mm-handle-media-type handle))))))))) |
(mm-handle-media-type handle))))))))) |
3508 |
|
|
3597 |
(if (stringp (car preferred)) |
(if (stringp (car preferred)) |
3598 |
(gnus-display-mime preferred) |
(gnus-display-mime preferred) |
3599 |
(let ((mail-parse-charset gnus-newsgroup-charset) |
(let ((mail-parse-charset gnus-newsgroup-charset) |
3600 |
(mail-parse-ignored-charsets |
(mail-parse-ignored-charsets |
3601 |
(save-excursion (set-buffer gnus-summary-buffer) |
(save-excursion (set-buffer gnus-summary-buffer) |
3602 |
gnus-newsgroup-ignored-charsets))) |
gnus-newsgroup-ignored-charsets))) |
3603 |
(mm-display-part preferred) |
(mm-display-part preferred) |
3835 |
(setq keys (if (featurep 'xemacs) |
(setq keys (if (featurep 'xemacs) |
3836 |
(events-to-keys (read-key-sequence nil)) |
(events-to-keys (read-key-sequence nil)) |
3837 |
(read-key-sequence nil))))) |
(read-key-sequence nil))))) |
3838 |
|
|
3839 |
(message "") |
(message "") |
3840 |
|
|
3841 |
(if (or (member keys nosaves) |
(if (or (member keys nosaves) |
4041 |
((or (stringp article) |
((or (stringp article) |
4042 |
(numberp article)) |
(numberp article)) |
4043 |
(let ((gnus-override-method gnus-override-method) |
(let ((gnus-override-method gnus-override-method) |
4044 |
(methods (and (stringp article) |
(methods (and (stringp article) |
4045 |
gnus-refer-article-method)) |
gnus-refer-article-method)) |
4046 |
result |
result |
4047 |
(buffer-read-only nil)) |
(buffer-read-only nil)) |
4063 |
(gnus-check-group-server)) |
(gnus-check-group-server)) |
4064 |
(when (gnus-request-article article group (current-buffer)) |
(when (gnus-request-article article group (current-buffer)) |
4065 |
(when (numberp article) |
(when (numberp article) |
4066 |
(gnus-async-prefetch-next group article |
(gnus-async-prefetch-next group article |
4067 |
gnus-summary-buffer) |
gnus-summary-buffer) |
4068 |
(when gnus-keep-backlog |
(when gnus-keep-backlog |
4069 |
(gnus-backlog-enter-article |
(gnus-backlog-enter-article |
4266 |
|
|
4267 |
;;; Internal Variables: |
;;; Internal Variables: |
4268 |
|
|
4269 |
(defcustom gnus-button-url-regexp "\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\):\\)\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?\\([-a-zA-Z0-9_=!?#$@~`%&*+|\\/:;.,]\\|\\w\\)+\\([-a-zA-Z0-9_=#$@~`%&*+|\\/]\\|\\w\\)\\)" |
(defcustom gnus-button-url-regexp |
4270 |
|
(if (string-match "[[:digit:]]" "1") ;; support POSIX? |
4271 |
|
"\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\|info\\):\\)\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?[-a-zA-Z0-9_=!?#$@~`%&*+|\\/:;.,[:word:]]+[-a-zA-Z0-9_=#$@~`%&*+|\\/[:word:]]\\)" |
4272 |
|
"\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\|info\\):\\)\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?\\([-a-zA-Z0-9_=!?#$@~`%&*+|\\/:;.,]\\|\\w\\)+\\([-a-zA-Z0-9_=#$@~`%&*+|\\/]\\|\\w\\)\\)") |
4273 |
"Regular expression that matches URLs." |
"Regular expression that matches URLs." |
4274 |
:group 'gnus-article-buttons |
:group 'gnus-article-buttons |
4275 |
:type 'regexp) |
:type 'regexp) |
4797 |
|
|
4798 |
This variable is a list of FUNCTION or (REGEXP . FUNCTION). If item |
This variable is a list of FUNCTION or (REGEXP . FUNCTION). If item |
4799 |
is FUNCTION, FUNCTION will be apply to all newsgroups. If item is a |
is FUNCTION, FUNCTION will be apply to all newsgroups. If item is a |
4800 |
(REGEXP . FUNCTION), FUNCTION will be only apply to thes newsgroups |
\(REGEXP . FUNCTION), FUNCTION will be only apply to these newsgroups |
4801 |
whose names match REGEXP. |
whose names match REGEXP. |
4802 |
|
|
4803 |
For example: |
For example: |
4804 |
((\"chinese\" . gnus-decode-encoded-word-region-by-guess) |
\((\"chinese\" . gnus-decode-encoded-word-region-by-guess) |
4805 |
mail-decode-encoded-word-region |
mail-decode-encoded-word-region |
4806 |
(\"chinese\" . rfc1843-decode-region)) |
(\"chinese\" . rfc1843-decode-region)) |
4807 |
") |
") |