HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* mh-e/mh-comp.el (mh-send-letter):
[bpt/emacs.git]
/
lisp
/
mh-e
/
mh-xface.el
diff --git
a/lisp/mh-e/mh-xface.el
b/lisp/mh-e/mh-xface.el
index
d197a8f
..
9e83175
100644
(file)
--- a/
lisp/mh-e/mh-xface.el
+++ b/
lisp/mh-e/mh-xface.el
@@
-1,6
+1,7
@@
;;; mh-xface.el --- MH-E X-Face and Face header field display
;;; mh-xface.el --- MH-E X-Face and Face header field display
-;; Copyright (C) 2002, 2003, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;; Copyright (C) 2002, 2003, 2005, 2006, 2007, 2008, 2009
+;; Free Software Foundation, Inc.
;; Author: Bill Wohler <wohler@newt.com>
;; Maintainer: Bill Wohler <wohler@newt.com>
;; Author: Bill Wohler <wohler@newt.com>
;; Maintainer: Bill Wohler <wohler@newt.com>
@@
-75,7
+76,8
@@
in this order is used."
(x-face (setq raw (mh-uncompface x-face)
type 'pbm))
(url (setq type 'url))
(x-face (setq raw (mh-uncompface x-face)
type 'pbm))
(url (setq type 'url))
- (t (multiple-value-setq (type raw) (mh-picon-get-image))))
+ (t (multiple-value-setq (type raw)
+ (values-list (mh-picon-get-image)))))
(when type
(goto-char (point-min))
(when (re-search-forward "^from:" (point-max) t)
(when type
(goto-char (point-min))
(when (re-search-forward "^from:" (point-max) t)
@@
-274,8
+276,8
@@
elements of the list are nil."
(let ((type (and (string-match ".*\\.\\(...\\)$" file)
(intern (match-string 1 file)))))
(insert-file-contents-literally file)
(let ((type (and (string-match ".*\\.\\(...\\)$" file)
(intern (match-string 1 file)))))
(insert-file-contents-literally file)
- (
values
type (buffer-string))))
- (
values
nil nil)))
+ (
list
type (buffer-string))))
+ (
list
nil nil)))
\f
\f