Mercurial > emacs

comparison lisp/mh-e/mh-xface.el @ 103411:f5e25950595d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove trailing space.
author Bill Wohler <wohler@newt.com>
date Sat, 13 Jun 2009 17:08:22 +0000
parents 6837adfb2772
children 1d1d5d9bd884
comparison
equal deleted inserted replaced
103410:c894aa66d7ca 103411:f5e25950595d
74 (cond (face (setq raw (mh-face-to-png face) 74 (cond (face (setq raw (mh-face-to-png face)
75 type 'png)) 75 type 'png))
76 (x-face (setq raw (mh-uncompface x-face) 76 (x-face (setq raw (mh-uncompface x-face)
77 type 'pbm)) 77 type 'pbm))
78 (url (setq type 'url)) 78 (url (setq type 'url))
79 (t (multiple-value-setq (type raw) 79 (t (multiple-value-setq (type raw)
80 (values-list (mh-picon-get-image))))) 80 (values-list (mh-picon-get-image)))))
81 (when type 81 (when type
82 (goto-char (point-min)) 82 (goto-char (point-min))
83 (when (re-search-forward "^from:" (point-max) t) 83 (when (re-search-forward "^from:" (point-max) t)
84 ;; GNU Emacs 84 ;; GNU Emacs