Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-art.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 25f70ba0133c
children 0132846995bd
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
863 (start-process 863 (start-process
864 "article-x-face" nil shell-file-name shell-command-switch 864 "article-x-face" nil shell-file-name shell-command-switch
865 gnus-article-x-face-command)) 865 gnus-article-x-face-command))
866 (process-send-region "article-x-face" beg end) 866 (process-send-region "article-x-face" beg end)
867 (process-send-eof "article-x-face")))))))))) 867 (process-send-eof "article-x-face"))))))))))
868
869 (defun gnus-hack-decode-rfc1522 ()
870 "Emergency hack function for avoiding problems when decoding."
871 (let ((buffer-read-only nil))
872 (goto-char (point-min))
873 ;; Remove encoded TABs.
874 (while (search-forward "=09" nil t)
875 (replace-match " " t t))
876 ;; Remove encoded newlines.
877 (goto-char (point-min))
878 (while (search-forward "=10" nil t)
879 (replace-match " " t t))))
868 880
869 (defalias 'gnus-decode-rfc1522 'article-decode-rfc1522) 881 (defalias 'gnus-decode-rfc1522 'article-decode-rfc1522)
870 (defalias 'gnus-article-decode-rfc1522 'article-decode-rfc1522) 882 (defalias 'gnus-article-decode-rfc1522 'article-decode-rfc1522)
871 (defun article-decode-rfc1522 () 883 (defun article-decode-rfc1522 ()
872 "Hack to remove QP encoding from headers." 884 "Hack to remove QP encoding from headers."
2042 (insert-buffer-substring artbuf) 2054 (insert-buffer-substring artbuf)
2043 ;; Append newline at end of the buffer as separator, and then 2055 ;; Append newline at end of the buffer as separator, and then
2044 ;; save it to file. 2056 ;; save it to file.
2045 (goto-char (point-max)) 2057 (goto-char (point-max))
2046 (insert "\n") 2058 (insert "\n")
2047 (append-to-file (point-min) (point-max) file-name)))) 2059 (append-to-file (point-min) (point-max) file-name)
2060 t)))
2048 2061
2049 (defun gnus-narrow-to-page (&optional arg) 2062 (defun gnus-narrow-to-page (&optional arg)
2050 "Narrow the article buffer to a page. 2063 "Narrow the article buffer to a page.
2051 If given a numerical ARG, move forward ARG pages." 2064 If given a numerical ARG, move forward ARG pages."
2052 (interactive "P") 2065 (interactive "P")
2582 0 t gnus-button-message-id 0) 2595 0 t gnus-button-message-id 0)
2583 ("^\\(From\\|Reply-To\\):" ": *\\(.+\\)$" 1 t gnus-button-reply 1) 2596 ("^\\(From\\|Reply-To\\):" ": *\\(.+\\)$" 1 t gnus-button-reply 1)
2584 ("^\\(Cc\\|To\\):" "[^ \t\n<>,()\"]+@[^ \t\n<>,()\"]+" 2597 ("^\\(Cc\\|To\\):" "[^ \t\n<>,()\"]+@[^ \t\n<>,()\"]+"
2585 0 t gnus-button-mailto 0) 2598 0 t gnus-button-mailto 0)
2586 ("^X-[Uu][Rr][Ll]:" ,gnus-button-url-regexp 0 t gnus-button-url 0) 2599 ("^X-[Uu][Rr][Ll]:" ,gnus-button-url-regexp 0 t gnus-button-url 0)
2600 ("^Subject:" ,gnus-button-url-regexp 0 t gnus-button-url 0)
2587 ("^[^:]+:" ,gnus-button-url-regexp 0 t gnus-button-url 0) 2601 ("^[^:]+:" ,gnus-button-url-regexp 0 t gnus-button-url 0)
2588 ("^[^:]+:" "\\(<\\(url: \\)?news:\\([^>\n ]*\\)>\\)" 1 t 2602 ("^[^:]+:" "\\(<\\(url: \\)?news:\\([^>\n ]*\\)>\\)" 1 t
2589 gnus-button-message-id 3)) 2603 gnus-button-message-id 3))
2590 "Alist of headers and regexps to match buttons in article heads. 2604 "Alist of headers and regexps to match buttons in article heads.
2591 2605