Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-art.el @ 142:1856695b1fa9 r20-2b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b5
author cvs
date Mon, 13 Aug 2007 09:33:18 +0200
parents 585fb297b004
children 318232e2a3f0
comparison
equal deleted inserted replaced
141:ea67ad3963dc 142:1856695b1fa9
842 (not (string-match gnus-article-x-face-too-ugly 842 (not (string-match gnus-article-x-face-too-ugly
843 from)))) 843 from))))
844 ;; Has to be present. 844 ;; Has to be present.
845 (re-search-forward "^X-Face: " nil t)) 845 (re-search-forward "^X-Face: " nil t))
846 ;; We now have the area of the buffer where the X-Face is stored. 846 ;; We now have the area of the buffer where the X-Face is stored.
847 (let ((beg (point)) 847 (save-excursion
848 (end (1- (re-search-forward "^\\($\\|[^ \t]\\)" nil t)))) 848 (let ((beg (point))
849 (save-excursion 849 (end (1- (re-search-forward "^\\($\\|[^ \t]\\)" nil t))))
850 ;; We display the face. 850 ;; We display the face.
851 (if (symbolp gnus-article-x-face-command) 851 (if (symbolp gnus-article-x-face-command)
852 ;; The command is a lisp function, so we call it. 852 ;; The command is a lisp function, so we call it.
853 (if (gnus-functionp gnus-article-x-face-command) 853 (if (gnus-functionp gnus-article-x-face-command)
854 (funcall gnus-article-x-face-command beg end) 854 (funcall gnus-article-x-face-command beg end)