Lines Matching +defs:article +defs:window
1 ;;; gnus-art.el --- article mode commands for Gnus
54 (defgroup gnus-article nil
59 (defgroup gnus-article-treat nil
60 "Treating article parts."
62 :group 'gnus-article)
64 (defgroup gnus-article-hiding nil
65 "Hiding article parts."
67 :group 'gnus-article)
69 (defgroup gnus-article-highlight nil
72 :group 'gnus-article
75 (defgroup gnus-article-signature nil
78 :group 'gnus-article)
80 (defgroup gnus-article-headers nil
83 :group 'gnus-article)
85 (defgroup gnus-article-washing nil
88 :group 'gnus-article)
90 (defgroup gnus-article-emphasis nil
93 :group 'gnus-article)
95 (defgroup gnus-article-saving nil
98 :group 'gnus-article)
100 (defgroup gnus-article-mime nil
103 :group 'gnus-article)
105 (defgroup gnus-article-buttons nil
106 "Pushable buttons in the article buffer."
108 :group 'gnus-article)
110 (defgroup gnus-article-various nil
111 "Other article options."
113 :group 'gnus-article)
163 :group 'gnus-article-hiding)
176 :group 'gnus-article-hiding)
183 be placed first in the article buffer in the sequence specified by
186 :group 'gnus-article-hiding)
188 (defcustom gnus-boring-article-headers '(empty followup-to reply-to)
212 :group 'gnus-article-hiding)
214 (defcustom gnus-article-skip-boring nil
219 `gnus-article-boring-faces'."
222 :group 'gnus-article-hiding)
232 :group 'gnus-article-signature)
247 :group 'gnus-article-signature)
252 :group 'gnus-article-hiding)
256 (defcustom gnus-article-x-face-command
274 :group 'gnus-article-washing)
276 (defcustom gnus-article-x-face-too-ugly nil
279 :group 'gnus-article-washing)
281 (defcustom gnus-article-banner-alist nil
287 :group 'gnus-article-washing)
293 :variable-group gnus-article-washing
298 (symbol :tag "Item in `gnus-article-banner-alist'" none)
306 regular expression to match the banner in `gnus-article-banner-alist'.
310 (defcustom gnus-article-address-banner-alist nil
314 `signature', an item in `gnus-article-banner-alist', a regexp and nil.
325 (symbol :tag "Item in `gnus-article-banner-alist'" none)
329 :group 'gnus-article-washing)
431 :group 'gnus-article-emphasis)
439 :group 'gnus-article-emphasis
444 :group 'gnus-article-emphasis)
448 :group 'gnus-article-emphasis)
452 :group 'gnus-article-emphasis)
456 :group 'gnus-article-emphasis)
460 :group 'gnus-article-emphasis)
464 :group 'gnus-article-emphasis)
470 :group 'gnus-article-emphasis)
476 :group 'gnus-article-emphasis)
481 :group 'gnus-article-emphasis)
483 (defcustom gnus-article-time-format "%a, %b %d %Y %T %Z"
484 "Format for display of Date headers in article bodies.
492 :group 'gnus-article-washing)
497 the saver function, which is specified by `gnus-default-article-saver',
499 :group 'gnus-article-saving
506 every article that is saved will be preceded by a prompt, even when
510 :group 'gnus-article-saving
522 `gnus-default-article-saver', might have."
523 :group 'gnus-article-saving
526 (defcustom gnus-default-article-saver 'gnus-summary-save-in-rmail
528 The function will be called by way of the `gnus-summary-save-article'
529 command, and friends such as `gnus-summary-save-article-rmail'.
536 * gnus-summary-save-in-file (article format)
537 * gnus-summary-save-body-in-file (article body)
539 * gnus-summary-write-to-file (article format -- overwrite)
540 * gnus-summary-write-body-to-file (article body -- overwrite)
561 :group 'gnus-article-saving
572 (defcustom gnus-article-save-coding-system
583 * gnus-summary-save-article-file
584 * gnus-summary-save-article-body-file
585 * gnus-summary-write-article-file
586 * gnus-summary-write-article-body-file
588 and the functions to which you may set `gnus-default-article-saver':
595 Those commands and functions save just text displayed in the article
599 :group 'gnus-article-saving
615 :group 'gnus-article-saving
621 :group 'gnus-article-saving
627 :group 'gnus-article-saving
631 "A function generating a file name to save articles in article format.
634 :group 'gnus-article-saving
638 '((gnus-article-archive-name)
639 (gnus-article-nndoc-name))
652 article. If the match is a symbol, that symbol will be funcalled
653 from the buffer of the article to be saved with the newsgroup as the
659 :group 'gnus-article-saving
665 "*Regexp describing what to use as article page delimiters.
669 :group 'gnus-article-various)
671 (defcustom gnus-article-mode-line-format "Gnus: %g [%w] %S%m"
672 "*The format specification for the article mode line.
677 %w The article washing status.
678 %m The number of MIME parts in the article."
680 :group 'gnus-article-various)
682 (defcustom gnus-article-mode-hook nil
683 "*A hook for Gnus article mode."
685 :group 'gnus-article-various)
690 (add-hook 'gnus-article-mode-hook 'turn-off-scroll-in-place))
692 (add-hook 'gnus-article-mode-hook 'gnus-xmas-article-menu-add))
694 (defcustom gnus-article-menu-hook nil
695 "*Hook run after the creation of the article mode menu."
697 :group 'gnus-article-various)
699 (defcustom gnus-article-prepare-hook nil
700 "*A hook called after an article has been prepared in the article buffer."
702 :group 'gnus-article-various)
704 (make-obsolete-variable 'gnus-article-hide-pgp-hook
707 (defcustom gnus-article-button-face 'bold
708 "Face used for highlighting buttons in the article buffer.
710 An article button is a piece of text that you can activate by pressing
713 :group 'gnus-article-buttons)
715 (defcustom gnus-article-mouse-face 'highlight
716 "Face used for mouse highlighting in the article buffer.
721 :group 'gnus-article-buttons)
724 "Face used for highlighting a signature in the article buffer.
727 :group 'gnus-article-highlight
728 :group 'gnus-article-signature)
733 "Face used for highlighting a signature in the article buffer."
734 :group 'gnus-article-highlight
735 :group 'gnus-article-signature)
749 :group 'gnus-article-headers
750 :group 'gnus-article-highlight)
764 :group 'gnus-article-headers
765 :group 'gnus-article-highlight)
781 :group 'gnus-article-headers
782 :group 'gnus-article-highlight)
796 :group 'gnus-article-headers
797 :group 'gnus-article-highlight)
810 :group 'gnus-article-headers
811 :group 'gnus-article-highlight)
820 "*Controls highlighting of article headers.
831 :group 'gnus-article-headers
832 :group 'gnus-article-highlight
841 (defcustom gnus-article-decode-hook
842 '(article-decode-charset article-decode-encoded-words
843 article-decode-group-name article-decode-idna-rhs)
845 :group 'gnus-article-headers
850 :group 'gnus-article-mime
859 (defvar gnus-article-dumbquotes-map
884 :group 'gnus-article-mime
892 :group 'gnus-article-mime
904 :group 'gnus-article-mime
913 :group 'gnus-article-mime
918 This variable is used by `gnus-article-treat-body-boundary' which can
921 :group 'gnus-article-various
945 (defcustom gnus-article-mime-part-function nil
949 :group 'gnus-article-mime
956 :group 'gnus-article-mime
959 (defcustom gnus-article-date-lapsed-new-header nil
965 :group 'gnus-article-headers
968 (defcustom gnus-article-mime-match-handle-function 'undisplayed-alternative
977 :group 'gnus-article-mime
992 ("toggle display" . gnus-article-press-button)
993 ("toggle display" . gnus-article-view-part-as-charset)
998 :group 'gnus-article-mime
1009 (defvar gnus-article-treat-custom
1018 (defvar gnus-article-treat-head-custom
1022 (defvar gnus-article-treat-types '("text/plain")
1032 :group 'gnus-article-treat
1034 :type gnus-article-treat-custom)
1041 :group 'gnus-article-treat
1043 :type gnus-article-treat-custom)
1050 :group 'gnus-article-treat
1052 :type gnus-article-treat-head-custom)
1056 (and (or window-system
1063 :group 'gnus-article-treat
1065 :type gnus-article-treat-custom)
1073 :group 'gnus-article-treat
1075 :type gnus-article-treat-custom)
1082 :group 'gnus-article-treat
1084 :type gnus-article-treat-custom)
1091 :group 'gnus-article-treat
1093 :type gnus-article-treat-custom)
1099 :group 'gnus-article-treat
1101 :type gnus-article-treat-head-custom)
1107 :group 'gnus-article-treat
1109 :type gnus-article-treat-head-custom)
1115 :group 'gnus-article-treat
1117 :type gnus-article-treat-custom)
1119 (defcustom gnus-treat-fill-article nil
1120 "Fill the article.
1123 :group 'gnus-article-treat
1125 :type gnus-article-treat-custom)
1131 :group 'gnus-article-treat
1133 :type gnus-article-treat-custom)
1139 :group 'gnus-article-treat
1141 :type gnus-article-treat-custom)
1148 :group 'gnus-article-treat
1150 :type gnus-article-treat-custom)
1159 :group 'gnus-article-treat
1161 :type gnus-article-treat-custom)
1168 :group 'gnus-article-treat
1170 :type gnus-article-treat-custom)
1176 :group 'gnus-article-treat
1178 :type gnus-article-treat-head-custom)
1185 :group 'gnus-article-treat
1187 :type gnus-article-treat-custom)
1194 :group 'gnus-article-treat
1196 :type gnus-article-treat-head-custom)
1202 :group 'gnus-article-treat
1204 :type gnus-article-treat-head-custom)
1211 :group 'gnus-article-treat
1213 :type gnus-article-treat-head-custom)
1219 :group 'gnus-article-treat
1221 :type gnus-article-treat-head-custom)
1227 :group 'gnus-article-treat
1229 :type gnus-article-treat-head-custom)
1236 :group 'gnus-article-treat
1238 :type gnus-article-treat-head-custom)
1242 The format is defined by the `gnus-article-time-format' variable.
1245 :group 'gnus-article-treat
1247 :type gnus-article-treat-head-custom)
1254 :group 'gnus-article-treat
1256 :type gnus-article-treat-custom)
1265 :group 'gnus-article-treat
1267 :type gnus-article-treat-custom)
1275 :group 'gnus-article-treat
1277 :type gnus-article-treat-custom)
1283 :group 'gnus-article-treat
1285 :type gnus-article-treat-custom)
1292 :group 'gnus-article-treat
1294 :type gnus-article-treat-custom)
1301 :group 'gnus-article-treat
1303 :type gnus-article-treat-custom)
1310 :group 'gnus-article-treat
1312 :type gnus-article-treat-custom)
1318 :group 'gnus-article-treat
1320 :type gnus-article-treat-custom)
1338 :group 'gnus-article-treat
1342 :type gnus-article-treat-head-custom
1370 :group 'gnus-article-treat
1374 :type gnus-article-treat-head-custom)
1382 :group 'gnus-article-treat
1386 :type gnus-article-treat-custom)
1398 :group 'gnus-article-treat
1402 :type gnus-article-treat-head-custom)
1414 :group 'gnus-article-treat
1418 :type gnus-article-treat-head-custom)
1430 :group 'gnus-article-treat
1434 :type gnus-article-treat-head-custom)
1446 :group 'gnus-article-treat
1448 :type gnus-article-treat-head-custom)
1455 :group 'gnus-article-treat
1457 :type gnus-article-treat-custom)
1464 :group 'gnus-article-treat
1466 :type gnus-article-treat-custom)
1472 :group 'gnus-article-treat
1474 :type gnus-article-treat-custom)
1481 :group 'gnus-article-treat
1483 :type gnus-article-treat-custom)
1490 :group 'gnus-article-treat
1492 :type gnus-article-treat-custom)
1500 :group 'gnus-article-treat
1503 :type gnus-article-treat-custom)
1505 (defvar gnus-article-encrypt-protocol-alist
1509 ;; gnus-article-encrypt-protocol-alist.
1510 (defcustom gnus-article-encrypt-protocol "PGP"
1517 (defvar gnus-article-wash-function nil
1526 :group 'gnus-article-headers
1529 (defcustom gnus-article-over-scroll nil
1530 "If non-nil, allow scrolling the article buffer even when there no more text."
1532 :group 'gnus-article
1541 (defvar article-goto-body-goes-to-point-min-p nil)
1542 (defvar gnus-article-wash-types nil)
1543 (defvar gnus-article-emphasis-alist nil)
1544 (defvar gnus-article-image-alist nil)
1546 (defvar gnus-article-mime-handle-alist-1 nil)
1548 '((gnus-treat-x-pgp-sig gnus-article-verify-x-pgp-sig)
1549 (gnus-treat-strip-banner gnus-article-strip-banner)
1550 (gnus-treat-strip-headers-in-body gnus-article-strip-headers-in-body)
1551 (gnus-treat-highlight-signature gnus-article-highlight-signature)
1552 (gnus-treat-buttonize gnus-article-add-buttons)
1553 (gnus-treat-fill-article gnus-article-fill-cited-article)
1554 (gnus-treat-fill-long-lines gnus-article-fill-long-lines)
1555 (gnus-treat-strip-cr gnus-article-remove-cr)
1556 (gnus-treat-unsplit-urls gnus-article-unsplit-urls)
1557 (gnus-treat-date-ut gnus-article-date-ut)
1558 (gnus-treat-date-local gnus-article-date-local)
1559 (gnus-treat-date-english gnus-article-date-english)
1560 (gnus-treat-date-original gnus-article-date-original)
1561 (gnus-treat-date-user-defined gnus-article-date-user)
1562 (gnus-treat-date-iso8601 gnus-article-date-iso8601)
1563 (gnus-treat-date-lapsed gnus-article-date-lapsed)
1564 (gnus-treat-display-x-face gnus-article-display-x-face)
1565 (gnus-treat-display-face gnus-article-display-face)
1566 (gnus-treat-hide-headers gnus-article-maybe-hide-headers)
1567 (gnus-treat-hide-boring-headers gnus-article-hide-boring-headers)
1568 (gnus-treat-hide-signature gnus-article-hide-signature)
1569 (gnus-treat-strip-list-identifiers gnus-article-hide-list-identifiers)
1570 (gnus-treat-leading-whitespace gnus-article-remove-leading-whitespace)
1571 (gnus-treat-strip-pem gnus-article-hide-pem)
1575 (gnus-treat-highlight-headers gnus-article-highlight-headers)
1576 (gnus-treat-highlight-signature gnus-article-highlight-signature)
1578 gnus-article-remove-trailing-blank-lines)
1580 gnus-article-strip-leading-blank-lines)
1582 gnus-article-strip-multiple-blank-lines)
1583 (gnus-treat-overstrike gnus-article-treat-overstrike)
1584 (gnus-treat-unfold-headers gnus-article-treat-unfold-headers)
1585 (gnus-treat-fold-headers gnus-article-treat-fold-headers)
1586 (gnus-treat-fold-newsgroups gnus-article-treat-fold-newsgroups)
1587 (gnus-treat-buttonize-head gnus-article-add-buttons-to-head)
1589 (gnus-treat-capitalize-sentences gnus-article-capitalize-sentences)
1590 (gnus-treat-wash-html gnus-article-wash-html)
1591 (gnus-treat-emphasize gnus-article-emphasize)
1592 (gnus-treat-hide-citation gnus-article-hide-citation)
1593 (gnus-treat-hide-citation-maybe gnus-article-hide-citation-maybe)
1594 (gnus-treat-highlight-citation gnus-article-highlight-citation)
1595 (gnus-treat-body-boundary gnus-article-treat-body-boundary)
1598 (defvar gnus-article-mime-handle-alist nil)
1599 (defvar article-lapsed-timer nil)
1600 (defvar gnus-article-current-summary nil)
1602 (defvar gnus-article-mode-syntax-table
1608 ;; make M-. in article buffers work for `foo' strings
1612 "Syntax table used in article mode buffers.
1615 (defvar gnus-save-article-buffer nil)
1617 (defvar gnus-article-mode-line-format-alist
1618 (nconc '((?w (gnus-article-wash-status) ?s)
1619 (?m (gnus-article-mime-part-status) ?s))
1626 (defvar gnus-article-edit-mode nil)
1628 ;;; Macros for dealing with the article buffer.
1630 (defmacro gnus-with-article-headers (&rest forms)
1632 (set-buffer gnus-article-buffer)
1637 (article-narrow-to-head)
1640 (put 'gnus-with-article-headers 'lisp-indent-function 0)
1641 (put 'gnus-with-article-headers 'edebug-form-spec '(body))
1643 (defmacro gnus-with-article-buffer (&rest forms)
1645 (set-buffer gnus-article-buffer)
1649 (put 'gnus-with-article-buffer 'lisp-indent-function 0)
1650 (put 'gnus-with-article-buffer 'edebug-form-spec '(body))
1652 (defun gnus-article-goto-header (header)
1656 (defsubst gnus-article-hide-text (b e props)
1658 (gnus-add-text-properties-when 'article-type nil b e props)
1664 (defsubst gnus-article-unhide-text (b e)
1671 (defun gnus-article-hide-text-type (b e type)
1674 (gnus-article-hide-text
1675 b e (cons 'article-type (cons type gnus-hidden-properties))))
1677 (defun gnus-article-unhide-text-type (b e type)
1681 b e (cons 'article-type (cons type gnus-hidden-properties)))
1686 (defun gnus-article-hide-text-of-type (type)
1691 (while (setq b (text-property-any b e 'article-type type))
1694 (defun gnus-article-delete-text-of-type (type)
1710 (when (eq (get-text-property b 'article-type) 'multipart)
1712 (while (setq b (text-property-any b (point-max) 'article-type type))
1714 b (or (text-property-not-all b (point-max) 'article-type type)
1717 (defun gnus-article-delete-invisible-text ()
1726 (defun gnus-article-text-type-exists-p (type)
1728 (text-property-any (point-min) (point-max) 'article-type type))
1730 (defsubst gnus-article-header-rank ()
1741 (defun article-hide-headers (&optional arg delete)
1776 (article-narrow-to-head)
1786 ;; article buffer.
1795 (gnus-article-header-rank)
1804 '(article-type headers dummy-invisible t))
1807 (defun article-hide-boring-headers (&optional arg)
1811 (interactive (gnus-article-hidden-arg))
1812 (when (and (not (gnus-article-check-hidden-text 'boring-headers arg))
1817 (list gnus-boring-article-headers)
1820 (article-narrow-to-head)
1829 (gnus-article-hide-text-type
1845 (gnus-article-hide-header "newsgroups")))
1858 (gnus-article-hide-header "to"))))
1871 (gnus-article-hide-header "to"))))
1884 (gnus-article-hide-header "cc"))))
1889 (gnus-article-hide-header "followup-to")))
1893 (gnus-article-hide-header "reply-to")
1909 (gnus-article-hide-header "reply-to")))))
1911 (let ((date (with-current-buffer gnus-original-article-buffer
1912 ;; If date in `gnus-article-buffer' is localized
1919 (gnus-article-hide-header "date"))))
1924 (gnus-article-hide-header "to"))
1926 (gnus-article-hide-header "cc"))))
1940 (gnus-article-hide-header "to"))
1952 (gnus-article-hide-header "cc"))
1955 (defun gnus-article-hide-header (header)
1959 (gnus-article-hide-text-type
1968 (defvar gnus-article-normalized-header-length 40
1971 (defun article-normalize-headers ()
1978 (article-narrow-to-head)
1982 gnus-article-normalized-header-length)
1985 (- gnus-article-normalized-header-length column)
1987 ((> column gnus-article-normalized-header-length)
1990 (forward-char gnus-article-normalized-header-length)
1999 (defun article-treat-dumbquotes ()
2010 (article-translate-strings gnus-article-dumbquotes-map))
2012 (defun article-translate-characters (from to)
2013 "Translate all characters in the body of the article according to FROM and TO.
2017 (when (article-goto-body)
2029 (defun article-translate-strings (map)
2030 "Translate all string in the body of the article according to MAP.
2033 (when (article-goto-body)
2041 (defun article-treat-overstrike ()
2045 (when (article-goto-body)
2055 (gnus-article-hide-text-type (- (point) 2) (point) 'overstrike)
2058 (gnus-article-hide-text-type
2063 (gnus-article-hide-text-type (- (point) 2) (point) 'overstrike)
2067 (defun gnus-article-treat-unfold-headers ()
2069 Only the headers that fit into the current window width will be
2072 (gnus-with-article-headers
2084 (when (< length (window-width))
2089 (defun gnus-article-treat-fold-headers ()
2092 (gnus-with-article-headers
2102 (gnus-with-article-buffer
2103 (if (memq 'smiley gnus-article-wash-types)
2105 (article-goto-body)
2112 (defun gnus-article-remove-images ()
2113 "Remove all images from the article buffer."
2115 (gnus-with-article-buffer
2116 (dolist (elem gnus-article-image-alist)
2119 (defun gnus-article-treat-fold-newsgroups ()
2121 Only the headers that fit into the current window width will be
2124 (gnus-with-article-headers
2125 (while (gnus-article-goto-header "newsgroups\\|followup-to")
2133 (defun gnus-article-treat-body-boundary ()
2138 (gnus-with-article-headers
2144 (while (>= (1- (window-width)) (length str))
2146 (substring str 0 (1- (window-width))))
2150 (defun article-fill-long-lines ()
2151 "Fill lines that are wider than the window width."
2155 (width (window-width (get-buffer-window (current-buffer)))))
2157 (article-goto-body)
2170 (defun article-capitalize-sentences ()
2176 (article-goto-body)
2181 (defun article-remove-cr ()
2193 (defun article-remove-trailing-blank-lines ()
2194 "Remove all trailing blank lines from the article."
2210 (defun article-display-face ()
2214 (gnus-with-article-headers
2216 ;; the same article, without any intended toggle semantic (as typing `W
2220 (if (and wash-face-p (memq 'face gnus-article-wash-types))
2225 (gnus-buffer-live-p gnus-original-article-buffer)
2227 (set-buffer gnus-original-article-buffer))
2230 (while (gnus-article-goto-header "Face")
2234 (let ((from (gnus-article-goto-header "from"))
2248 (defun article-display-x-face (&optional force)
2252 (gnus-with-article-headers
2254 (when (process-status "article-x-face")
2255 (delete-process "article-x-face"))
2256 ;; See the comment in `article-display-face'.
2257 (if (and wash-face-p (memq 'xface gnus-article-wash-types))
2265 (gnus-buffer-live-p gnus-original-article-buffer)
2267 ;; If type `W f', use gnus-original-article-buffer,
2270 (set-buffer gnus-original-article-buffer))
2273 (while (gnus-article-goto-header "X-Face")
2278 (when (stringp gnus-article-x-face-command)
2281 gnus-article-x-face-command
2284 (not gnus-article-x-face-too-ugly)
2286 (not (string-match gnus-article-x-face-too-ugly
2290 (cond ((stringp gnus-article-x-face-command)
2296 "article-x-face" nil shell-file-name
2297 shell-command-switch gnus-article-x-face-command)
2301 (process-send-region "article-x-face"
2303 (process-send-eof "article-x-face")))
2304 ((functionp gnus-article-x-face-command)
2306 (funcall gnus-article-x-face-command face))
2309 gnus-article-x-face-command))))))))))
2311 (defun article-decode-mime-words ()
2312 "Decode all MIME-encoded words in the article."
2315 (set-buffer gnus-article-buffer)
2324 (defun article-decode-charset (&optional prompt)
2325 "Decode charset-encoded text in the article.
2339 (article-narrow-to-head)
2363 (not format)) ;; article with format will decode later.
2369 (defun article-decode-encoded-words ()
2397 (defun article-decode-group-name ()
2404 (gnus-buffer-live-p gnus-original-article-buffer))
2406 (article-narrow-to-head)
2407 (with-current-buffer gnus-original-article-buffer
2413 ;; XXX how to use data in article buffer?
2414 (with-current-buffer gnus-original-article-buffer
2422 (with-current-buffer gnus-original-article-buffer
2428 ;; XXX how to use data in article buffer?
2429 (with-current-buffer gnus-original-article-buffer
2439 (defun article-decode-idna-rhs ()
2447 (article-narrow-to-head)
2460 (defun article-de-quoted-unreadable (&optional force read-charset)
2461 "Translate a quoted-printable-encoded article.
2462 If FORCE, decode the article whether it is marked as quoted-printable
2468 (if (gnus-buffer-live-p gnus-original-article-buffer)
2469 (with-current-buffer gnus-original-article-buffer
2485 (article-goto-body)
2489 (defun article-de-base64-unreadable (&optional force read-charset)
2490 "Translate a base64 article.
2491 If FORCE, decode the article whether it is marked as base64 not.
2496 (if (gnus-buffer-live-p gnus-original-article-buffer)
2497 (with-current-buffer gnus-original-article-buffer
2513 (article-goto-body)
2523 (defun article-decode-HZ ()
2524 "Translate a HZ-encoded article."
2531 (defun article-unsplit-urls ()
2541 (gnus-treat-article nil))))
2544 (defun article-wash-html (&optional read-charset)
2545 "Format an HTML article.
2547 charset defined in `gnus-summary-show-article-charset-alist' is used."
2557 gnus-summary-show-article-charset-alist))))
2559 (let ((gnus-summary-show-article-charset-alist
2562 (gnus-summary-show-article 1)))
2564 (when (gnus-buffer-live-p gnus-original-article-buffer)
2565 (with-current-buffer gnus-original-article-buffer
2574 (article-goto-body)
2575 (save-window-excursion
2578 (let* ((func (or gnus-article-wash-function mm-text-html-renderer))
2588 (defun gnus-article-wash-html-with-w3 ()
2591 (let ((w3-strict-width (window-width))
2599 (defun gnus-article-wash-html-with-w3m ()
2614 (eval-when-compile (defvar charset)) ;; Bound by `article-wash-html'.
2616 (defun gnus-article-wash-html-with-w3m-standalone ()
2620 (unless (mm-coding-system-p charset) ;; Bound by `article-wash-html'.
2631 (defun article-hide-list-identifiers ()
2643 (article-narrow-to-head)
2654 (defun article-hide-pem (&optional arg)
2655 "Toggle hiding of any PEM headers and signatures in the current article.
2658 (interactive (gnus-article-hidden-arg))
2659 (unless (gnus-article-check-hidden-text 'pem arg)
2669 (gnus-article-hide-text-type
2678 (gnus-article-hide-text-type
2681 (defun article-strip-banner ()
2683 `gnus-article-address-banner-alist'."
2689 (article-really-strip-banner
2691 (when gnus-article-address-banner-alist
2697 (article-narrow-to-head)
2704 (dolist (pair gnus-article-address-banner-alist)
2707 (article-really-strip-banner (cdr pair)))))))))))))
2709 (defun article-really-strip-banner (banner)
2716 (article-goto-body)
2719 (when (gnus-article-narrow-to-signature)
2724 (if (setq banner (cdr (assq banner gnus-article-banner-alist)))
2731 (defun article-babel ()
2732 "Translate article using an online translation service."
2736 (set-buffer gnus-article-buffer)
2737 (when (article-goto-body)
2748 (defun article-hide-signature (&optional arg)
2749 "Hide the signature in the current article.
2752 (interactive (gnus-article-hidden-arg))
2753 (unless (gnus-article-check-hidden-text 'signature arg)
2757 (when (gnus-article-narrow-to-signature)
2758 (gnus-article-hide-text-type
2760 (gnus-set-mode-line 'article))
2762 (defun article-strip-headers-in-body ()
2766 (article-goto-body)
2771 (defun article-strip-leading-blank-lines ()
2772 "Remove all blank lines from the beginning of the article."
2777 (when (article-goto-body)
2782 (defun article-narrow-to-head ()
2792 (defun article-goto-body ()
2798 (article-goto-body-goes-to-point-min-p
2806 (defun article-strip-multiple-blank-lines ()
2813 (article-goto-body)
2819 (article-goto-body)
2825 (defun article-strip-leading-space ()
2826 "Remove all white space from the beginning of the lines in the article."
2831 (article-goto-body)
2835 (defun article-strip-trailing-space ()
2836 "Remove all white space from the end of the lines in the article."
2841 (article-goto-body)
2845 (defun article-strip-blank-lines ()
2848 (article-strip-leading-blank-lines)
2849 (article-remove-trailing-blank-lines)
2850 (article-strip-multiple-blank-lines))
2852 (defun article-strip-all-blank-lines ()
2858 (article-goto-body)
2862 (defun gnus-article-narrow-to-signature ()
2865 (when (gnus-article-search-signature)
2888 (defun gnus-article-search-signature ()
2904 (defun gnus-article-hidden-arg ()
2910 (defun gnus-article-check-hidden-text (type arg)
2916 (let ((hide (gnus-article-hidden-text-p type)))
2922 (gnus-article-show-hidden-text type)
2927 (gnus-article-show-hidden-text type)
2931 (defun gnus-article-hidden-text-p (type)
2933 (let ((pos (text-property-any (point-min) (point-max) 'article-type type)))
2938 (text-property-any (1+ pos) (point-max) 'article-type type)))
2943 (defun gnus-article-show-hidden-text (type &optional dummy)
2949 'article-type type
2951 (cons 'article-type (cons type
2955 (defconst article-time-units
2964 (defun gnus-article-forward-header ()
2975 (defun article-date-ut (&optional type highlight)
2976 "Convert DATE date to universal time in the current article.
2979 `gnus-article-date-lapsed-new-header' says whether the \"X-Sent:\" header
2983 (date-regexp (cond ((not gnus-article-date-lapsed-new-header)
2987 (article-lapsed-timer
3019 (gnus-article-forward-header)
3023 (gnus-article-forward-header)
3031 (insert (article-make-date-line date (or type 'ut)))
3046 (defun article-make-date-line (date type)
3071 ;; Get the original date from the article.
3080 gnus-article-time-format)
3082 gnus-article-time-format)))
3132 article-time-units "")
3134 ;; article was sent in the future.
3162 (defun article-date-local (&optional highlight)
3163 "Convert the current article date to the local timezone."
3165 (article-date-ut 'local highlight))
3167 (defun article-date-english (&optional highlight)
3168 "Convert the current article date to something that is proper English."
3170 (article-date-ut 'english highlight))
3172 (defun article-date-original (&optional highlight)
3173 "Convert the current article date to what it was originally.
3177 (article-date-ut 'original highlight))
3179 (defun article-date-lapsed (&optional highlight)
3180 "Convert the current article date to time lapsed since it was sent."
3182 (article-date-ut 'lapsed highlight))
3184 (defun article-update-date-lapsed ()
3192 (set-buffer (window-buffer w))
3193 (when (eq major-mode 'gnus-article-mode)
3197 (article-date-lapsed t))
3203 "Start a timer to update the X-Sent header in the article buffers.
3210 (setq article-lapsed-timer
3211 (nnheader-run-at-time 1 n 'article-update-date-lapsed)))
3216 (when article-lapsed-timer
3217 (nnheader-cancel-timer article-lapsed-timer)
3218 (setq article-lapsed-timer nil)))
3220 (defun article-date-user (&optional highlight)
3221 "Convert the current article date to the user-defined format.
3222 This format is defined by the `gnus-article-time-format' variable."
3224 (article-date-ut 'user highlight))
3226 (defun article-date-iso8601 (&optional highlight)
3227 "Convert the current article date to ISO8601."
3229 (article-date-ut 'iso8601 highlight))
3231 (defmacro gnus-article-save-original-date (&rest forms)
3252 ;; (defun article-show-all ()
3253 ;; "Show all hidden text in the article buffer."
3257 ;; (gnus-article-unhide-text (point-min) (point-max)))))
3259 (defun article-remove-leading-whitespace ()
3265 (article-narrow-to-head)
3270 (defun article-emphasize (&optional arg)
3272 (interactive (gnus-article-hidden-arg))
3273 (unless (gnus-article-check-hidden-text 'emphasis arg)
3278 gnus-article-emphasis-alist)
3282 (props (append '(article-type emphasis)
3285 (article-goto-body)
3295 (gnus-article-hide-text
3297 (gnus-article-unhide-text-type
3304 (defun gnus-article-setup-highlight-words (&optional highlight-words)
3306 (unless gnus-article-emphasis-alist
3309 (make-local-variable 'gnus-article-emphasis-alist)
3310 (setq gnus-article-emphasis-alist
3325 (defvar gnus-summary-article-menu)
3330 (defun gnus-article-save (save-buffer file &optional num)
3331 "Save the currently selected article."
3332 (when (or (get gnus-default-article-saver :headers)
3337 (or (symbol-value (get gnus-default-article-saver :headers))
3339 (gnus-article-buffer save-buffer))
3342 (article-hide-headers 1 t))))
3343 (save-window-excursion
3344 (if (not gnus-default-article-saver)
3347 ;; `gnus-save-article-buffer' (or so they think), but we
3349 (set-buffer gnus-article-buffer)
3350 (let* ((gnus-save-article-buffer save-buffer)
3359 (set-buffer gnus-article-current-summary)
3360 (funcall gnus-default-article-saver filename)))))
3388 "this article")))
3413 gnus-article-save-directory))
3417 (t gnus-article-save-directory))))
3431 gnus-article-save-directory
3433 gnus-article-save-directory)))
3451 (defun gnus-article-archive-name (group)
3455 (nnheader-concat gnus-article-save-directory
3458 (defun gnus-article-nndoc-name (group)
3461 (gnus-group-get-parameter group 'save-article-group)))
3464 "Append this article to Rmail file.
3466 Directory to save to is default to `gnus-article-save-directory'."
3471 (gnus-eval-in-buffer-window gnus-save-article-buffer
3479 "Append this article to Unix mail file.
3481 Directory to save to is default to `gnus-article-save-directory'."
3486 (gnus-eval-in-buffer-window gnus-save-article-buffer
3500 "Append this article to file.
3502 Directory to save to is default to `gnus-article-save-directory'."
3507 (gnus-eval-in-buffer-window gnus-save-article-buffer
3521 "Write this article to a file, overwriting it if the file exists.
3523 The directory to save in defaults to `gnus-article-save-directory'."
3532 "Append this article body to a file.
3534 The directory to save in defaults to `gnus-article-save-directory'."
3539 (gnus-eval-in-buffer-window gnus-save-article-buffer
3543 (when (article-goto-body)
3555 "Write this article body to a file, overwriting it if the file exists.
3557 The directory to save in defaults to `gnus-article-save-directory'."
3565 "Pipe this article to subprocess."
3579 "this article"))
3585 (gnus-eval-in-buffer-window gnus-article-buffer
3600 "Pipe this article to muttprint."
3624 gnus-article-save-directory)))
3642 gnus-article-save-directory)))
3661 gnus-article-save-directory)))
3670 gnus-article-save-directory)))
3672 (defun article-verify-x-pgp-sig ()
3675 (if (gnus-buffer-live-p gnus-original-article-buffer)
3676 (let ((sig (with-current-buffer gnus-original-article-buffer
3683 (insert-buffer-substring gnus-original-article-buffer)
3746 (defun article-verify-cancel-lock ()
3749 (if (gnus-buffer-live-p gnus-original-article-buffer)
3750 (canlock-verify gnus-original-article-buffer)))
3767 (set-buffer gnus-article-buffer)
3771 '(article-hide-headers
3772 article-verify-x-pgp-sig
3773 article-verify-cancel-lock
3774 article-hide-boring-headers
3775 article-treat-overstrike
3776 article-fill-long-lines
3777 article-capitalize-sentences
3778 article-remove-cr
3779 article-remove-leading-whitespace
3780 article-display-x-face
3781 article-display-face
3782 article-de-quoted-unreadable
3783 article-de-base64-unreadable
3784 article-decode-HZ
3785 article-wash-html
3786 article-unsplit-urls
3787 article-hide-list-identifiers
3788 article-strip-banner
3789 article-babel
3790 article-hide-pem
3791 article-hide-signature
3792 article-strip-headers-in-body
3793 article-remove-trailing-blank-lines
3794 article-strip-leading-blank-lines
3795 article-strip-multiple-blank-lines
3796 article-strip-leading-space
3797 article-strip-trailing-space
3798 article-strip-blank-lines
3799 article-strip-all-blank-lines
3800 article-date-local
3801 article-date-english
3802 article-date-iso8601
3803 article-date-original
3804 article-date-ut
3805 article-decode-mime-words
3806 article-decode-charset
3807 article-decode-encoded-words
3808 article-date-user
3809 article-date-lapsed
3810 article-emphasize
3811 article-treat-dumbquotes
3812 article-normalize-headers
3813 ;; (article-show-all . gnus-article-show-all-headers)
3818 ;;; Gnus article mode
3821 (put 'gnus-article-mode 'mode-class 'special)
3823 (set-keymap-parent gnus-article-mode-map widget-keymap)
3825 (gnus-define-keys gnus-article-mode-map
3826 " " gnus-article-goto-next-page
3827 "\177" gnus-article-goto-prev-page
3828 [delete] gnus-article-goto-prev-page
3829 [backspace] gnus-article-goto-prev-page
3830 "\C-c^" gnus-article-refer-article
3831 "h" gnus-article-show-summary
3832 "s" gnus-article-show-summary
3833 "\C-c\C-m" gnus-article-mail
3834 "?" gnus-article-describe-briefly
3835 "e" gnus-summary-edit-article
3840 "R" gnus-article-reply-with-original
3841 "F" gnus-article-followup-with-original
3842 "\C-hk" gnus-article-describe-key
3843 "\C-hc" gnus-article-describe-key-briefly
3845 "\C-d" gnus-article-read-summary-keys
3846 "\M-*" gnus-article-read-summary-keys
3847 "\M-#" gnus-article-read-summary-keys
3848 "\M-^" gnus-article-read-summary-keys
3849 "\M-g" gnus-article-read-summary-keys)
3852 'undefined 'gnus-article-read-summary-keys gnus-article-mode-map)
3854 (defun gnus-article-make-menu-bar ()
3855 (unless (boundp 'gnus-article-commands-menu)
3857 (gnus-turn-off-edit-menu 'article)
3858 (unless (boundp 'gnus-article-article-menu)
3860 gnus-article-article-menu gnus-article-mode-map ""
3862 ["Scroll forwards" gnus-article-goto-next-page t]
3863 ["Scroll backwards" gnus-article-goto-prev-page t]
3864 ["Show summary" gnus-article-show-summary t]
3865 ["Fetch Message-ID at point" gnus-article-refer-article t]
3866 ["Mail to address at point" gnus-article-mail t]
3870 gnus-article-treatment-menu gnus-article-mode-map ""
3873 ["Hide headers" gnus-article-hide-headers t]
3874 ["Hide signature" gnus-article-hide-signature t]
3875 ["Hide citation" gnus-article-hide-citation t]
3876 ["Treat overstrike" gnus-article-treat-overstrike t]
3877 ["Remove carriage return" gnus-article-remove-cr t]
3878 ["Remove leading whitespace" gnus-article-remove-leading-whitespace t]
3879 ["Remove quoted-unreadable" gnus-article-de-quoted-unreadable t]
3880 ["Remove base64" gnus-article-de-base64-unreadable t]
3881 ["Treat html" gnus-article-wash-html t]
3882 ["Remove newlines from within URLs" gnus-article-unsplit-urls t]
3883 ["Decode HZ" gnus-article-decode-HZ t]))
3889 (gnus-run-hooks 'gnus-article-menu-hook)))
3891 (defun gnus-article-mode ()
3892 "Major mode for displaying an article.
3898 \\<gnus-article-mode-map>
3899 \\[gnus-article-next-page]\t Scroll the article one page forwards
3900 \\[gnus-article-prev-page]\t Scroll the article one page backwards
3901 \\[gnus-article-refer-article]\t Go to the article referred to by an article id near point
3902 \\[gnus-article-show-summary]\t Display the summary buffer
3903 \\[gnus-article-mail]\t Send a reply to the address near point
3904 \\[gnus-article-describe-briefly]\t Describe the current mode briefly
3910 (setq major-mode 'gnus-article-mode)
3912 (use-local-map gnus-article-mode-map)
3913 (when (gnus-visual-p 'article-menu 'menu)
3914 (gnus-article-make-menu-bar)
3917 (gnus-update-format-specifications nil 'article-mode)
3921 (make-local-variable 'gnus-article-current-summary)
3922 (make-local-variable 'gnus-article-mime-handles)
3923 (make-local-variable 'gnus-article-decoded-p)
3924 (make-local-variable 'gnus-article-mime-handle-alist)
3925 (make-local-variable 'gnus-article-wash-types)
3926 (make-local-variable 'gnus-article-image-alist)
3927 (make-local-variable 'gnus-article-charset)
3928 (make-local-variable 'gnus-article-ignored-charsets)
3935 (set-syntax-table gnus-article-mode-syntax-table)
3937 (gnus-run-mode-hooks 'gnus-article-mode-hook))
3947 (defun gnus-article-setup-buffer ()
3948 "Initialize the article buffer."
3949 (let* ((name (if gnus-single-article-buffer "*Article*"
3955 (setq gnus-article-buffer name)
3956 (setq gnus-original-article-buffer original)
3957 (setq gnus-article-mime-handle-alist nil)
3959 (unless gnus-single-article-buffer
3962 (setq gnus-article-buffer name)
3963 (setq gnus-original-article-buffer original)
3965 (gnus-article-setup-highlight-words)
3966 ;; Init original article buffer.
3968 (set-buffer (gnus-get-buffer-create gnus-original-article-buffer))
3970 (setq major-mode 'gnus-original-article-mode)
3971 (make-local-variable 'gnus-original-article))
3974 (if gnus-article-edit-mode
3985 (set (make-local-variable 'gnus-article-edit-mode) nil)
3986 (when gnus-article-mime-handles
3987 (mm-destroy-parts gnus-article-mime-handles)
3988 (setq gnus-article-mime-handles nil))
3989 ;; Set it to nil in article-buffer!
3990 (setq gnus-article-mime-handle-alist nil)
3995 (unless (eq major-mode 'gnus-article-mode)
3996 (gnus-article-mode))
4000 (gnus-article-mode)
4005 ;; Set article window start at LINE, where LINE is the number of lines
4006 ;; from the head of the article.
4007 (defun gnus-article-set-window-start (&optional line)
4008 (set-window-start
4009 (gnus-get-buffer-window gnus-article-buffer t)
4011 (set-buffer gnus-article-buffer)
4020 (defun gnus-article-prepare (article &optional all-headers header)
4021 "Prepare ARTICLE in article mode buffer.
4022 ARTICLE should either be an article number or a Message-ID.
4023 If ARTICLE is an id, HEADER should be the article headers.
4030 (let* ((gnus-article (if header (mail-header-number header) article))
4032 (gnus-tmp-internal-hook gnus-article-internal-prepare-hook)
4036 (gnus-article-setup-buffer)
4037 (set-buffer gnus-article-buffer)
4043 (gnus-request-article-this-buffer
4044 article group))))
4045 ;; There is no such article.
4047 (when (and (numberp article)
4048 (not (memq article gnus-newsgroup-sparse)))
4049 (setq gnus-article-current
4050 (cons gnus-newsgroup-name article))
4052 (setq gnus-current-article article)
4053 (if (and (memq article gnus-newsgroup-undownloaded)
4057 (gnus-summary-set-agent-mark article)
4059 (gnus-summary-mark-article article gnus-canceled-mark)
4060 (unless (memq article gnus-newsgroup-sparse)
4061 (gnus-error 1 "No such article (may have expired or been canceled)")))))
4067 (push article gnus-newsgroup-history)
4068 (setq gnus-last-article gnus-current-article
4069 gnus-current-article 0
4071 gnus-article-current nil)
4074 (gnus-configure-windows 'article))
4076 (let ((gnus-article-mime-handle-alist-1
4077 gnus-article-mime-handle-alist))
4078 (gnus-set-mode-line 'article)))
4079 ;; The result from the `request' was an actual article -
4081 ;; article buffer.
4082 (when (and (numberp article)
4083 (not (eq article gnus-current-article)))
4084 ;; Seems like a new article has been selected.
4085 ;; `gnus-current-article' must be an article number.
4088 (push article gnus-newsgroup-history)
4089 (setq gnus-last-article gnus-current-article
4090 gnus-current-article article
4092 (gnus-summary-article-header gnus-current-article)
4093 gnus-article-current
4094 (cons gnus-newsgroup-name gnus-current-article))
4097 (gnus-summary-goto-subject gnus-current-article)
4101 ;; the right article, but the thread root instead.
4103 (gnus-summary-goto-subject gnus-current-article))
4104 (gnus-run-hooks 'gnus-mark-article-hook)
4106 (when (gnus-visual-p 'article-highlight 'highlight)
4107 (gnus-run-hooks 'gnus-visual-mark-article-hook))
4113 (gnus-configure-windows 'article))
4114 (when (or (numberp article)
4115 (stringp article))
4116 (gnus-article-prepare-display)
4121 (let ((gnus-article-mime-handle-alist-1
4122 gnus-article-mime-handle-alist))
4123 (gnus-set-mode-line 'article))
4124 (article-goto-body)
4127 (set-window-point (get-buffer-window (current-buffer)) (point))
4128 (gnus-configure-windows 'article)
4132 (defun gnus-article-prepare-display ()
4133 "Make the current buffer look like a nice article."
4134 ;; Hooks for getting information from the article.
4136 (let ((gnus-article-buffer (current-buffer))
4139 (unless (eq major-mode 'gnus-article-mode)
4140 (gnus-article-mode))
4142 gnus-article-wash-types nil
4143 gnus-article-image-alist nil)
4147 (gnus-run-hooks 'gnus-article-prepare-hook)))
4178 '((gnus-article-press-button "\r" "Toggle Display")
4193 (defun gnus-article-mime-part-status ()
4194 (if gnus-article-mime-handle-alist-1
4195 (if (eq 1 (length gnus-article-mime-handle-alist-1))
4197 (format " (%d parts)" (length gnus-article-mime-handle-alist-1)))
4204 (set-keymap-parent map gnus-article-mode-map))
4205 (define-key map gnus-mouse-2 'gnus-article-push-button)
4237 (save-window-excursion
4239 (select-window (posn-window pos))
4241 (gnus-article-check-buffer)
4248 (set-buffer gnus-article-buffer)
4249 (let ((handles (or handles gnus-article-mime-handles))
4265 (gnus-article-check-buffer)
4268 (when (mm-complicated-handles gnus-article-mime-handles)
4270 The current article has a complicated MIME structure, giving up..."))
4272 Deleting parts may malfunction or destroy the article; continue? ")
4275 (handles gnus-article-mime-handles))
4296 (gnus-article-edit-article
4299 (let ((mail-parse-charset (or gnus-article-charset
4302 (or gnus-article-ignored-charsets
4306 (insert-buffer-substring gnus-original-article-buffer)
4308 (setq gnus-article-mime-handles nil)
4315 (let ((mail-parse-charset (or gnus-article-charset
4320 (or gnus-article-ignored-charsets
4327 (gnus-summary-edit-article-done
4336 (gnus-article-check-buffer)
4339 (when (mm-complicated-handles gnus-article-mime-handles)
4341 The current article has a complicated MIME structure, giving up..."))
4343 Deleting parts may malfunction or destroy the article; continue? ")
4345 (handles gnus-article-mime-handles)
4377 (gnus-article-edit-article
4380 (let ((mail-parse-charset (or gnus-article-charset
4383 (or gnus-article-ignored-charsets
4387 (insert-buffer-substring gnus-original-article-buffer)
4389 (setq gnus-article-mime-handles nil)
4396 (let ((mail-parse-charset (or gnus-article-charset
4401 (or gnus-article-ignored-charsets
4408 (gnus-summary-edit-article-done
4413 (gnus-article-edit-done)
4414 (gnus-summary-expand-window)
4415 (gnus-summary-show-article))
4420 (gnus-article-check-buffer)
4428 (gnus-article-check-buffer)
4436 (gnus-article-check-buffer)
4439 (setq gnus-article-mime-handles
4441 gnus-article-mime-handles (setq data (copy-sequence data))))
4445 (gnus-article-check-buffer)
4469 (gnus-article-check-buffer)
4485 (setq gnus-article-mime-handles
4486 (mm-merge-handles gnus-article-mime-handles handle))
4524 (gnus-article-check-buffer)
4550 (gnus-article-check-buffer)
4575 (gnus-article-check-buffer)
4594 gnus-summary-show-article-charset-alist))
4629 (gnus-article-check-buffer)
4639 (or (cdr (assq arg gnus-summary-show-article-charset-alist))
4653 gnus-article-mime-handle-alist)))
4664 (gnus-article-check-buffer)
4687 (gnus-article-check-buffer)
4708 (gnus-article-check-buffer)
4713 (defun gnus-article-part-wrapper (n function)
4714 (let ((window (get-buffer-window gnus-article-buffer 'visible))
4716 (when window
4717 ;; It is necessary to select the article window so that
4718 ;; `gnus-article-goto-part' may really move the point.
4720 (gnus-select-frame-set-input-focus (window-frame window))
4722 (save-window-excursion
4723 (select-window window)
4724 (when (> n (length gnus-article-mime-handle-alist))
4726 (gnus-article-goto-part n)
4727 (let ((handle (cdr (assq n gnus-article-mime-handle-alist))))
4731 (defun gnus-article-pipe-part (n)
4734 (gnus-article-part-wrapper n 'mm-pipe-part))
4736 (defun gnus-article-save-part (n)
4739 (gnus-article-part-wrapper n 'mm-save-part))
4741 (defun gnus-article-interactively-view-part (n)
4744 (gnus-article-part-wrapper n 'mm-interactively-view-part))
4746 (defun gnus-article-copy-part (n)
4749 (gnus-article-part-wrapper n 'gnus-mime-copy-part))
4751 (defun gnus-article-view-part-as-charset (n)
4755 (gnus-article-part-wrapper n 'gnus-mime-view-part-as-charset))
4757 (defun gnus-article-view-part-externally (n)
4760 (gnus-article-part-wrapper n 'gnus-mime-view-part-externally))
4762 (defun gnus-article-inline-part (n)
4765 (gnus-article-part-wrapper n 'gnus-mime-inline-part))
4767 (defun gnus-article-mime-match-handle-first (condition)
4769 (let ((alist gnus-article-mime-handle-alist) ihandle n)
4781 (gnus-article-goto-part (car ihandle))
4787 (defun gnus-article-view-part (&optional n)
4791 (set-buffer gnus-article-buffer)
4792 (or (numberp n) (setq n (gnus-article-mime-match-handle-first
4793 gnus-article-mime-match-handle-function)))
4794 (when (> n (length gnus-article-mime-handle-alist))
4796 (let ((handle (cdr (assq n gnus-article-mime-handle-alist))))
4797 (when (gnus-article-goto-part n)
4799 (gnus-article-press-button)
4801 (gnus-set-window-start)))))))
4803 (defsubst gnus-article-mime-total-parts ()
4804 (if (bufferp (car gnus-article-mime-handles))
4806 (1- (length gnus-article-mime-handles))))
4815 (let ((window (selected-window))
4825 (let ((win (gnus-get-buffer-window (current-buffer) t))
4828 (select-window win))
4843 (gnus-treat-article
4845 (gnus-article-mime-total-parts)
4847 (if (window-live-p window)
4848 (select-window window)))))
4855 (defun gnus-article-goto-part (n)
4891 article-type annotation
4903 (lambda (widget/window &optional overlay pos)
4912 ;; window, overlay, position.
4918 (widget-get widget/window :mime-handle)))
4924 (gnus-article-press-button))
4931 (save-selected-window
4932 (let ((window (get-buffer-window gnus-article-buffer))
4934 (when window
4935 (select-window window)
4936 ;; We have to do this since selecting the window
4937 ;; may change the point. So we set the window point.
4938 (set-window-point window point)))
4943 ((setq handles (mm-dissect-buffer nil gnus-article-loose-mime))
4944 (when gnus-article-emulate-mime
4946 (gnus-article-emulate-mime
4951 (when gnus-article-mime-handles
4952 (mm-destroy-parts gnus-article-mime-handles)
4953 (setq gnus-article-mime-handle-alist nil));; A trick.
4954 (setq gnus-article-mime-handles handles)
4956 (when gnus-article-mime-part-function
4965 (article-goto-body)
4970 (article-goto-body)
4972 (gnus-treat-article nil 1 1)
4978 (article-goto-body)
4980 (gnus-article-save-original-date
4981 (gnus-treat-article 'head)))))))
4993 :group 'gnus-article-mime
4999 :group 'gnus-article-mime
5009 :group 'gnus-article-mime
5027 (let ((id (1+ (length gnus-article-mime-handle-alist))))
5028 (push (cons id handle) gnus-article-mime-handle-alist)
5056 (funcall gnus-article-mime-part-function handles)))
5086 (let ((id (1+ (length gnus-article-mime-handle-alist)))
5088 (push (cons id handle) gnus-article-mime-handle-alist)
5100 (gnus-article-insert-newline)
5121 (gnus-article-insert-newline)
5138 (gnus-treat-article
5140 (gnus-article-mime-total-parts)
5157 (defun gnus-article-insert-newline ()
5167 (save-window-excursion
5194 (setq gnus-article-mime-handle-alist
5195 ',gnus-article-mime-handle-alist))
5199 ,gnus-mouse-face-prop ,gnus-article-mouse-face
5200 face ,gnus-article-button-face
5202 article-type multipart))
5218 (setq gnus-article-mime-handle-alist
5219 ',gnus-article-mime-handle-alist))
5223 ,gnus-mouse-face-prop ,gnus-article-mouse-face
5224 face ,gnus-article-button-face
5244 (gnus-treat-article
5245 nil (length gnus-article-mime-handle-alist)
5246 (gnus-article-mime-total-parts)
5253 (defconst gnus-article-wash-status-strings
5279 in the article mode line when the washing function is active, and OFF
5282 (defun gnus-article-wash-status-entry (key value)
5283 (let ((entry (assoc key gnus-article-wash-status-strings)))
5286 (defun gnus-article-wash-status ()
5287 "Return a string which display status of article washing."
5289 (set-buffer gnus-article-buffer)
5290 (let ((cite (memq 'cite gnus-article-wash-types))
5291 (headers (memq 'headers gnus-article-wash-types))
5292 (boring (memq 'boring-headers gnus-article-wash-types))
5293 (pgp (memq 'pgp gnus-article-wash-types))
5294 (pem (memq 'pem gnus-article-wash-types))
5295 (signed (memq 'signed gnus-article-wash-types))
5296 (encrypted (memq 'encrypted gnus-article-wash-types))
5297 (signature (memq 'signature gnus-article-wash-types))
5298 (overstrike (memq 'overstrike gnus-article-wash-types))
5299 (emphasis (memq 'emphasis gnus-article-wash-types)))
5301 (gnus-article-wash-status-entry 'cite cite)
5302 (gnus-article-wash-status-entry 'headers (or headers boring))
5303 (gnus-article-wash-status-entry 'pgp (or pgp pem signed encrypted))
5304 (gnus-article-wash-status-entry 'signature signature)
5305 (gnus-article-wash-status-entry 'overstrike overstrike)
5306 (gnus-article-wash-status-entry 'emphasis emphasis)))))
5310 (add-to-list 'gnus-article-wash-types type))
5314 (setq gnus-article-wash-types (delq type gnus-article-wash-types)))
5318 (let ((entry (assq category gnus-article-image-alist)))
5321 (push entry gnus-article-image-alist))
5326 (let ((entry (assq category gnus-article-image-alist)))
5329 (setq gnus-article-image-alist (delq entry gnus-article-image-alist))
5332 (defalias 'gnus-article-hide-headers-if-wanted 'gnus-article-maybe-hide-headers)
5334 (defun gnus-article-maybe-hide-headers ()
5341 (gnus-article-hide-headers)))
5346 "Append the current article to a file named FILE-NAME.
5347 If `gnus-article-save-coding-system' is non-nil, it is used to encode
5349 top of a file. Otherwise, this function saves a raw article without
5353 (coding gnus-article-save-coding-system)
5379 (save-window-excursion
5397 "Narrow the article buffer to a page.
5402 (set-buffer gnus-article-buffer)
5439 (defun gnus-article-goto-next-page ()
5440 "Show the next page of the article."
5442 (when (gnus-article-next-page)
5444 (gnus-article-read-summary-keys nil (gnus-character-to-event ?n))))
5447 (defun gnus-article-goto-prev-page ()
5448 "Show the previous page of the article."
5451 (gnus-article-read-summary-keys nil (gnus-character-to-event ?p))
5452 (gnus-article-prev-page nil)))
5456 ;; (defun gnus-article-goto-next-page ()
5457 ;; "Show the next page of the article."
5459 ;; (gnus-eval-in-buffer-window gnus-summary-buffer
5462 ;; (defun gnus-article-goto-prev-page ()
5463 ;; "Show the next page of the article."
5465 ;; (gnus-eval-in-buffer-window gnus-summary-buffer
5468 (defun gnus-article-next-page (&optional lines)
5469 "Show the next page of the current article.
5470 If end of article, return non-nil. Otherwise return nil.
5473 (move-to-window-line -1)
5476 (and (pos-visible-in-window-p) ;Not continuation line.
5486 (when gnus-article-over-scroll
5487 (gnus-article-next-page-1 lines))
5492 (gnus-article-next-page-1 lines)
5495 (defmacro gnus-article-beginning-of-window ()
5496 "Move point to the beginning of the window.
5500 '(move-to-window-line 0)
5501 '(move-to-window-line
5503 (max 1 (- (window-height)
5509 (defun gnus-article-next-page-1 (lines)
5518 (max 0 (- (count-lines (window-start) (point-max))
5526 (gnus-article-beginning-of-window))
5528 (defun gnus-article-prev-page (&optional lines)
5529 "Show previous page of current article.
5532 (move-to-window-line 0)
5546 (gnus-article-beginning-of-window))))
5548 (defun gnus-article-only-boring-p ()
5549 "Decide whether there is only boring text remaining in the article.
5551 not have a face in `gnus-article-boring-faces'."
5552 (when (and gnus-article-skip-boring
5553 (boundp 'gnus-article-boring-faces)
5554 (symbol-value 'gnus-article-boring-faces))
5562 (symbol-value 'gnus-article-boring-faces)))
5566 (defun gnus-article-refer-article ()
5567 "Read article specified by message-id around point."
5575 (gnus-summary-refer-article msg-id))
5578 (defun gnus-article-show-summary ()
5582 (error "There is no summary buffer for this article buffer")
5583 (gnus-article-set-globals)
5584 (gnus-configure-windows 'article)
5585 (gnus-summary-goto-subject gnus-current-article)
5588 (defun gnus-article-describe-briefly ()
5589 "Describe article mode commands briefly."
5591 (gnus-message 6 (substitute-command-keys "\\<gnus-article-mode-map>\\[gnus-article-goto-next-page]:Next page \\[gnus-article-goto-prev-page]:Prev page \\[gnus-article-show-summary]:Show summary \\[gnus-info-find-node]:Run Info \\[gnus-article-describe-briefly]:This help")))
5593 (defun gnus-article-summary-command ()
5597 (owin (current-window-configuration))
5599 (switch-to-buffer gnus-article-current-summary 'norecord)
5603 (set-window-configuration owin)
5604 (set-window-point (get-buffer-window (current-buffer)) (point))))
5606 (defun gnus-article-summary-command-nosave ()
5610 (pop-to-buffer gnus-article-current-summary 'norecord)
5614 (defun gnus-article-check-buffer ()
5615 "Beep if not in an article buffer."
5616 (unless (equal major-mode 'gnus-article-mode)
5617 (error "Command invoked outside of a Gnus article buffer")))
5619 (defun gnus-article-read-summary-keys (&optional arg key not-restore-window)
5620 "Read a summary buffer key sequence and execute it from the article buffer."
5622 (gnus-article-check-buffer)
5627 (nosave-but-article
5629 (nosave-in-article
5635 (set-buffer gnus-article-current-summary)
5645 (member keys nosave-but-article)
5646 (member keys nosave-in-article))
5648 (save-window-excursion
5649 (pop-to-buffer gnus-article-current-summary 'norecord)
5656 (unless (member keys nosave-in-article)
5657 (set-buffer gnus-article-current-summary))
5660 (when (member keys nosave-but-article)
5661 (pop-to-buffer gnus-article-buffer 'norecord)))
5662 ;; These commands should restore window configuration.
5664 (owin (current-window-configuration))
5667 (cond (not-restore-window
5668 (pop-to-buffer gnus-article-current-summary 'norecord))
5669 ((setq win (get-buffer-window gnus-article-current-summary))
5670 (select-window win))
5672 (switch-to-buffer gnus-article-current-summary 'norecord)))
5680 (when (eq win (selected-window))
5682 new-sum-start (window-start win)
5683 new-sum-hscroll (window-hscroll win)))
5685 (setq selected (gnus-summary-select-article))
5687 (unless not-restore-window
5688 (set-window-configuration owin))
5690 (article-goto-body)
5691 (set-window-start (get-buffer-window (current-buffer))
5693 (set-window-point (get-buffer-window (current-buffer))
5695 (when (and (not not-restore-window)
5697 (set-window-point win new-sum-point)
5698 (set-window-start win new-sum-start)
5699 (set-window-hscroll win new-sum-hscroll))))
5700 (set-window-configuration owin)
5703 (defun gnus-article-describe-key (key)
5706 (gnus-article-check-buffer)
5707 (if (eq (key-binding key) 'gnus-article-read-summary-keys)
5709 (set-buffer gnus-article-current-summary)
5724 (defun gnus-article-describe-key-briefly (key &optional insert)
5727 (gnus-article-check-buffer)
5728 (if (eq (key-binding key) 'gnus-article-read-summary-keys)
5730 (set-buffer gnus-article-current-summary)
5745 (defun gnus-article-reply-with-original (&optional wide)
5748 the entire article will be yanked."
5750 (let ((article (cdr gnus-article-current))
5754 (gnus-summary-reply (list (list article)) wide))
5762 (list (list article contents)) wide)))))
5764 (defun gnus-article-followup-with-original ()
5765 "Compose a followup to the current article.
5767 the entire article will be yanked."
5769 (let ((article (cdr gnus-article-current))
5773 (gnus-summary-followup (list (list article))))
5781 (list (list article contents)))))))
5783 (defun gnus-article-hide (&optional arg force)
5784 "Hide all the gruft in the current article.
5788 (interactive (append (gnus-article-hidden-arg) (list 'force)))
5789 (gnus-article-hide-headers arg)
5790 (gnus-article-hide-list-identifiers arg)
5791 (gnus-article-hide-citation-maybe arg force)
5792 (gnus-article-hide-signature arg))
5794 (defun gnus-article-maybe-highlight ()
5795 "Do some article highlighting if article highlighting is requested."
5796 (when (gnus-visual-p 'article-highlight 'highlight)
5797 (gnus-article-highlight-some)))
5809 (defun gnus-request-article-this-buffer (article group)
5810 "Get an article and insert it into this buffer."
5818 ;; Using `gnus-request-article' directly will insert the article into
5820 ;; copy it from the server buffer into the article buffer.
5822 ;; We only request an article by message-id when we do not have the
5824 (when (stringp article)
5825 (gnus-read-header article))
5827 ;; If the article number is negative, that means that this article
5830 (when (and (numberp article)
5836 (let ((header (gnus-summary-article-header article)))
5837 (when (< article 0)
5839 ((memq article gnus-newsgroup-sparse)
5840 ;; This is a sparse gap article.
5841 (setq do-update-line article)
5842 (setq article (mail-header-id header))
5843 (setq sparse-header (gnus-read-header article))
5845 (delq article gnus-newsgroup-sparse)))
5847 ;; It's a real article.
5848 (setq article (mail-header-id header)))
5850 ;; It is an extracted pseudo-article.
5851 (setq article 'pseudo)
5852 (gnus-request-pseudo-article header))))
5862 (setq article 'nneething)
5867 ((and (numberp article)
5873 (assq article gnus-newsgroup-reads)))
5876 ;; We first check `gnus-original-article-buffer'.
5877 ((and (get-buffer gnus-original-article-buffer)
5878 (numberp article)
5880 (set-buffer gnus-original-article-buffer)
5881 (and (equal (car gnus-original-article) group)
5882 (eq (cdr gnus-original-article) article))))
5883 (insert-buffer-substring gnus-original-article-buffer)
5884 'article)
5887 (gnus-backlog-request-article group article (current-buffer)))
5888 'article)
5890 ((gnus-async-request-fetched-article group article (current-buffer))
5891 (gnus-async-prefetch-next group article gnus-summary-buffer)
5892 (when (and (numberp article) gnus-keep-backlog)
5893 (gnus-backlog-enter-article group article (current-buffer)))
5894 'article)
5897 (numberp article)
5898 (gnus-cache-request-article article group))
5899 'article)
5901 ((gnus-agent-request-article article group)
5902 'article)
5903 ;; Get the article and put into the article buffer.
5904 ((or (stringp article)
5905 (numberp article))
5907 (methods (and (stringp article)
5908 gnus-refer-article-method))
5930 ((gnus-request-article article group (current-buffer))
5931 (when (numberp article)
5932 (gnus-async-prefetch-next group article
5935 (gnus-backlog-enter-article
5936 group article (current-buffer))))
5937 (setq result 'article))
5943 ;; retry; otherwise, assume the article has expired.
5945 (and (eq result 'article) 'article)))
5947 (t article)))
5949 ;; Associate this article with the current summary buffer.
5950 (setq gnus-article-current-summary gnus-summary-buffer)
5952 ;; Take the article from the original article buffer
5954 (when (and (get-buffer gnus-article-buffer)
5956 (buffer-name (get-buffer gnus-article-buffer))))
5958 (if (get-buffer gnus-original-article-buffer)
5959 (set-buffer gnus-original-article-buffer)
5960 (set-buffer (gnus-get-buffer-create gnus-original-article-buffer))
5962 (setq major-mode 'gnus-original-article-mode)
5966 (insert-buffer-substring gnus-article-buffer))
5967 (setq gnus-original-article (cons group article)))
5970 (run-hooks 'gnus-article-decode-hook)
5971 ;; Mark article as decoded or not.
5972 (setq gnus-article-decoded-p gnus-article-decode-hook))
5976 (or (numberp article)
5977 (stringp article)))
5980 (gnus-summary-update-article do-update-line sparse-header)
5982 (set-window-point (gnus-get-buffer-window (current-buffer) t)
5990 (defcustom gnus-article-edit-mode-hook nil
5991 "Hook run in article edit mode buffers."
5992 :group 'gnus-article-various
5995 (defvar gnus-article-edit-done-function nil)
5997 (defvar gnus-article-edit-mode-map nil)
5998 (defvar gnus-article-edit-mode nil)
6001 (unless gnus-article-edit-mode-map
6002 (setq gnus-article-edit-mode-map (make-keymap))
6003 (set-keymap-parent gnus-article-edit-mode-map text-mode-map)
6005 (gnus-define-keys gnus-article-edit-mode-map
6007 "\C-c\C-c" gnus-article-edit-done
6008 "\C-c\C-k" gnus-article-edit-exit
6039 (gnus-define-keys (gnus-article-edit-wash-map
6040 "\C-c\C-w" gnus-article-edit-mode-map)
6041 "f" gnus-article-edit-full-stops))
6044 gnus-article-edit-mode-field-menu gnus-article-edit-mode-map ""
6063 (define-derived-mode gnus-article-edit-mode message-mode "Article Edit"
6067 \\{gnus-article-edit-mode-map}"
6068 (make-local-variable 'gnus-article-edit-done-function)
6073 (set (make-local-variable 'gnus-article-edit-mode) t)
6080 (defun gnus-article-edit (&optional force)
6081 "Edit the current article.
6088 (error "The current newsgroup does not support article editing"))
6089 (gnus-article-date-original)
6090 (gnus-article-edit-article
6094 (gnus-summary-edit-article-done
6098 (defun gnus-article-edit-article (start-func exit-func)
6099 "Start editing the contents of the current article buffer."
6100 (let ((winconf (current-window-configuration)))
6101 (set-buffer gnus-article-buffer)
6103 ;; Don't associate the article buffer with a draft file.
6105 (gnus-article-edit-mode))
6108 (gnus-configure-windows 'edit-article)
6109 (setq gnus-article-edit-done-function exit-func)
6113 (defun gnus-article-edit-done (&optional arg)
6114 "Update the article edits and exit."
6116 (let ((func gnus-article-edit-done-function)
6118 (start (window-start))
6126 (gnus-backlog-remove-article
6127 (car gnus-article-current) (cdr gnus-article-current)))
6128 ;; Flush original article as well.
6130 (when (get-buffer gnus-original-article-buffer)
6131 (set-buffer gnus-original-article-buffer)
6132 (setq gnus-original-article nil)))
6134 (gnus-cache-update-article
6135 (car gnus-article-current) (cdr gnus-article-current)))
6136 ;; We remove all text props from the article buffer.
6139 (gnus-article-mode)
6140 (set-window-configuration winconf)
6142 (set-window-start (get-buffer-window buf) start)
6143 (set-window-point (get-buffer-window buf) (point)))
6144 (gnus-summary-show-article))
6146 (defun gnus-article-edit-exit ()
6147 "Exit the article editing without updating."
6153 (window-start (window-start)))
6155 (if (gnus-buffer-live-p gnus-original-article-buffer)
6156 (insert-buffer-substring gnus-original-article-buffer))
6159 (gnus-article-mode)
6160 (set-window-configuration winconf)
6164 (set-window-start (get-buffer-window (current-buffer)) window-start)
6166 (gnus-summary-show-article)))
6168 (defun gnus-article-edit-full-stops ()
6190 :group 'gnus-article-buttons
6197 :group 'gnus-article-buttons
6205 :group 'gnus-article-buttons
6216 :group 'gnus-article-buttons)
6224 :group 'gnus-article-buttons
6237 :group 'gnus-article-buttons)
6242 :group 'gnus-article-buttons
6255 :group 'gnus-article-buttons
6264 :group 'gnus-article-buttons
6276 :group 'gnus-article-buttons
6340 :group 'gnus-article-buttons
6428 (save-window-excursion
6525 :group 'gnus-article-buttons
6537 :group 'gnus-article-buttons
6549 :group 'gnus-article-buttons
6559 :group 'gnus-article-buttons
6568 :group 'gnus-article-buttons
6584 ("\\bin\\( +article\\| +message\\)? +\\(<\\([^\n @<>]+@[^\n @<>]+\\)>\\)"
6690 "*Alist of regexps matching buttons in article bodies.
6703 :group 'gnus-article-buttons
6729 "*Alist of headers and regexps to match buttons in article heads.
6738 :group 'gnus-article-buttons
6739 :group 'gnus-article-headers
6751 (defun gnus-article-push-button (event)
6756 (set-buffer (window-buffer (posn-window (event-start event))))
6764 (defun gnus-article-press-button ()
6774 (defun gnus-article-highlight (&optional force)
6775 "Highlight current article.
6776 This function calls `gnus-article-highlight-headers',
6777 `gnus-article-highlight-citation',
6778 `gnus-article-highlight-signature', and `gnus-article-add-buttons' to
6781 (gnus-article-highlight-headers)
6782 (gnus-article-highlight-citation force)
6783 (gnus-article-highlight-signature)
6784 (gnus-article-add-buttons force)
6785 (gnus-article-add-buttons-to-head))
6787 (defun gnus-article-highlight-some (&optional force)
6788 "Highlight current article.
6789 This function calls `gnus-article-highlight-headers',
6790 `gnus-article-highlight-signature', and `gnus-article-add-buttons' to
6793 (gnus-article-highlight-headers)
6794 (gnus-article-highlight-signature)
6795 (gnus-article-add-buttons))
6797 (defun gnus-article-highlight-headers ()
6798 "Highlight article headers as specified by `gnus-header-face-alist'."
6801 (set-buffer gnus-article-buffer)
6808 (article-narrow-to-head)
6836 (defun gnus-article-highlight-signature ()
6837 "Highlight the signature in an article.
6842 (set-buffer gnus-article-buffer)
6847 (gnus-article-narrow-to-signature))
6851 (gnus-article-search-signature)
6854 (gnus-article-add-button start (1- end) 'gnus-signature-toggle
6861 (defun gnus-article-add-buttons (&optional force)
6862 "Find external references in the article and make buttons of them.
6867 (set-buffer gnus-article-buffer)
6886 (article-goto-body)
6901 (gnus-article-add-button
6906 ;; Add buttons to the head of an article.
6907 (defun gnus-article-add-buttons-to-head ()
6908 "Add buttons to the head of the article."
6911 (set-buffer gnus-article-buffer)
6918 (article-narrow-to-head)
6939 (gnus-article-add-button
6947 (defun gnus-article-add-button (from to fun &optional data)
6949 (when gnus-article-button-face
6951 'face gnus-article-button-face))
6954 (nconc (and gnus-article-mouse-face
6955 (list gnus-mouse-face-prop gnus-article-mouse-face))
6963 (defun gnus-article-set-globals ()
6970 (set-buffer gnus-article-buffer)
6973 (if (text-property-any end (point-max) 'article-type 'signature)
6977 'article-type 'signature end (point-max)
6978 (cons 'article-type (cons 'signature
6982 'article-type nil end (point-max)
6983 (cons 'article-type (cons 'signature
6985 (let ((gnus-article-mime-handle-alist-1 gnus-article-mime-handle-alist))
6986 (gnus-set-mode-line 'article))))
7058 (let ((gnus-refer-article-method
7060 gnus-refer-article-method))
7063 message-id gnus-refer-article-method)
7064 (gnus-summary-refer-article message-id))
7065 (gnus-summary-refer-article message-id))))
7122 (gnus-summary-refer-article message-id)))
7194 ;;; Next/prev buttons in the article buffer.
7203 (set-keymap-parent map gnus-article-mode-map))
7212 (set-keymap-parent map gnus-article-mode-map))
7224 gnus-callback gnus-article-button-prev-page
7225 article-type annotation))
7237 (let ((win (selected-window)))
7238 (select-window (gnus-get-buffer-window gnus-article-buffer t))
7239 (gnus-article-next-page)
7240 (select-window win)))
7245 (let ((win (selected-window)))
7246 (select-window (gnus-get-buffer-window gnus-article-buffer t))
7247 (gnus-article-prev-page)
7248 (select-window win)))
7256 gnus-callback gnus-article-button-next-page
7257 article-type annotation))
7266 (defun gnus-article-button-next-page (arg)
7269 (let ((win (selected-window)))
7270 (select-window (gnus-get-buffer-window gnus-article-buffer t))
7271 (gnus-article-next-page)
7272 (select-window win)))
7274 (defun gnus-article-button-prev-page (arg)
7277 (let ((win (selected-window)))
7278 (select-window (gnus-get-buffer-window gnus-article-buffer t))
7279 (gnus-article-prev-page)
7280 (select-window win)))
7324 (defun gnus-treat-article (condition &optional part-number total-parts type)
7327 (article-goto-body-goes-to-point-min-p t)
7331 (let ((list gnus-article-treat-types))
7335 (highlightp (gnus-visual-p 'article-highlight 'highlight))
7395 (defun gnus-article-encrypt-body (protocol &optional n)
7396 "Encrypt the article body."
7399 (or gnus-article-encrypt-protocol
7401 gnus-article-encrypt-protocol-alist
7404 (let ((func (cdr (assoc protocol gnus-article-encrypt-protocol-alist))))
7410 (error "Can't encrypt the article in group %s"
7421 (error "The current newsgroup does not support article encrypt"))
7422 (gnus-summary-show-article t)
7425 (set-buffer gnus-article-buffer)
7455 (gnus-summary-edit-article-done
7458 (gnus-backlog-remove-article
7459 (car gnus-article-current) (cdr gnus-article-current)))
7461 (when (get-buffer gnus-original-article-buffer)
7462 (set-buffer gnus-original-article-buffer)
7463 (setq gnus-original-article nil)))
7465 (gnus-cache-update-article
7466 (car gnus-article-current) (cdr gnus-article-current))))))))
7491 (set-keymap-parent map gnus-article-mode-map))
7492 (define-key map gnus-mouse-2 'gnus-article-push-button)
7493 (define-key map "\r" 'gnus-article-press-button)
7501 "If non-nil, show details in the article buffer.")
7602 article-type annotation
7614 (lambda (widget/window &optional overlay pos)