Mercurial > emacs
comparison lisp/mh-e/mh-xface.el @ 102537:6837adfb2772
m-v: use lists to pass things around rather than values.
author | Deepak Goel <deego@gnufans.org> |
---|---|
date | Fri, 13 Mar 2009 20:28:15 +0000 |
parents | b18f7ae38a1a |
children | f5e25950595d |
comparison
equal
deleted
inserted
replaced
102536:97eebd9d88a8 | 102537:6837adfb2772 |
---|---|
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) (mh-picon-get-image)))) | 79 (t (multiple-value-setq (type raw) |
80 (values-list (mh-picon-get-image))))) | |
80 (when type | 81 (when type |
81 (goto-char (point-min)) | 82 (goto-char (point-min)) |
82 (when (re-search-forward "^from:" (point-max) t) | 83 (when (re-search-forward "^from:" (point-max) t) |
83 ;; GNU Emacs | 84 ;; GNU Emacs |
84 (mh-do-in-gnu-emacs | 85 (mh-do-in-gnu-emacs |
273 (with-temp-buffer | 274 (with-temp-buffer |
274 (set-buffer-multibyte nil) | 275 (set-buffer-multibyte nil) |
275 (let ((type (and (string-match ".*\\.\\(...\\)$" file) | 276 (let ((type (and (string-match ".*\\.\\(...\\)$" file) |
276 (intern (match-string 1 file))))) | 277 (intern (match-string 1 file))))) |
277 (insert-file-contents-literally file) | 278 (insert-file-contents-literally file) |
278 (values type (buffer-string)))) | 279 (list type (buffer-string)))) |
279 (values nil nil))) | 280 (list nil nil))) |
280 | 281 |
281 | 282 |
282 | 283 |
283 ;;; X-Image-URL Display | 284 ;;; X-Image-URL Display |
284 | 285 |