gnus-diary: Fix gnus-completing-read call.

Signed-off-by: Julien Danjou <julien@danjou.info>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9da9682..1a66ec9 100644 (file)
--- 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  <kanru@kanru.info>  (tiny change)
+
+       * gnus-diary.el (gnus-diary-check-message): Fix gnus-completing-read
+       call.
+
 2010-10-15  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus.el: Autoload gnus-html-show-images.

diff --git a/lisp/gnus-diary.el b/lisp/gnus-diary.el
index 76d469b..c2b95c7 100644 (file)
--- 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