diff options
| author | Bill Wohler <wohler@newt.com> | 2009-06-13 17:08:22 +0000 |
|---|---|---|
| committer | Bill Wohler <wohler@newt.com> | 2009-06-13 17:08:22 +0000 |
| commit | 86e1c36a8f5f74bd706f9672ece3e6b701b9c549 (patch) | |
| tree | cbbe6f809e420a753934c091c7246bf76dc5a932 /lisp | |
| parent | 2a1cf2b9aad0bc5685d1ea3c3e85afd212c659d3 (diff) | |
| download | emacs-86e1c36a8f5f74bd706f9672ece3e6b701b9c549.tar.gz emacs-86e1c36a8f5f74bd706f9672ece3e6b701b9c549.tar.bz2 emacs-86e1c36a8f5f74bd706f9672ece3e6b701b9c549.zip | |
Remove trailing space.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mh-e/mh-seq.el | 2 | ||||
| -rw-r--r-- | lisp/mh-e/mh-speed.el | 2 | ||||
| -rw-r--r-- | lisp/mh-e/mh-xface.el | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mh-e/mh-seq.el b/lisp/mh-e/mh-seq.el index dc7154adf2a..bc0ec94e817 100644 --- a/lisp/mh-e/mh-seq.el +++ b/lisp/mh-e/mh-seq.el @@ -746,7 +746,7 @@ completion is over." "-norecurse" folder "-sequence" (symbol-name mh-unseen-seq)) (goto-char (point-min)) (multiple-value-bind (folder unseen total) - (values-list + (values-list (mh-parse-flist-output-line (buffer-substring (point) (mh-line-end-position)))) (list total unseen folder)))) diff --git a/lisp/mh-e/mh-speed.el b/lisp/mh-e/mh-speed.el index f806fb43e72..6cf831315a2 100644 --- a/lisp/mh-e/mh-speed.el +++ b/lisp/mh-e/mh-speed.el @@ -455,7 +455,7 @@ be handled next." (substring output position line-end)) mh-speed-partial-line "") (multiple-value-setq (folder unseen total) - (values-list + (values-list (mh-parse-flist-output-line line mh-speed-current-folder))) (when (and folder unseen total (let ((old-pair (gethash folder mh-speed-flists-cache))) diff --git a/lisp/mh-e/mh-xface.el b/lisp/mh-e/mh-xface.el index b63a1966266..9e83175ac60 100644 --- a/lisp/mh-e/mh-xface.el +++ b/lisp/mh-e/mh-xface.el @@ -76,7 +76,7 @@ in this order is used." (x-face (setq raw (mh-uncompface x-face) type 'pbm)) (url (setq type 'url)) - (t (multiple-value-setq (type raw) + (t (multiple-value-setq (type raw) (values-list (mh-picon-get-image))))) (when type (goto-char (point-min)) |