From: Kan-Ru Chen Date: Fri, 15 Oct 2010 17:46:08 +0000 (+0800) Subject: gnus-diary: Fix gnus-completing-read call. X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=7656ae5affb37dcf88f9a2fd488f53c21cfe2043;p=gnus gnus-diary: Fix gnus-completing-read call. Signed-off-by: Julien Danjou --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9da968237..1a66ec92d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -3,6 +3,11 @@ * gnus-sum.el (gnus-summary-refer-thread): unconditionally ignore duplicates. +2010-10-15 Kan-Ru Chen (tiny change) + + * gnus-diary.el (gnus-diary-check-message): Fix gnus-completing-read + call. + 2010-10-15 Lars Magne Ingebrigtsen * gnus.el: Autoload gnus-html-show-images. diff --git a/lisp/gnus-diary.el b/lisp/gnus-diary.el index 76d469b66..c2b95c709 100644 --- a/lisp/gnus-diary.el +++ b/lisp/gnus-diary.el @@ -368,7 +368,7 @@ If ARG (or prefix) is non-nil, force prompting for all fields." header ": "))) (setq value (if (listp (nth 1 head)) - (gnus-completing-read prompt (cons '("*" nil) (nth 1 head)) + (gnus-completing-read prompt (cons "*" (mapcar 'car (nth 1 head))) t value 'gnus-diary-header-value-history) (read-string prompt value