From 86e1c36a8f5f74bd706f9672ece3e6b701b9c549 Mon Sep 17 00:00:00 2001 From: Bill Wohler Date: Sat, 13 Jun 2009 17:08:22 +0000 Subject: [PATCH] Remove trailing space. --- lisp/mh-e/mh-seq.el | 2 +- lisp/mh-e/mh-speed.el | 2 +- 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)) -- 2.39.2