From: Alex Schroeder Date: Thu, 2 Mar 2006 20:06:38 +0000 (+0000) Subject: (rmail-read-label): Since rmail-keywords is a list X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=571491cbc3b783a4318158aabb009f7dbe2925af;p=emacs.git (rmail-read-label): Since rmail-keywords is a list of symbols, we need to transform it into an alist for completion. --- diff --git a/lisp/mail/ChangeLog b/lisp/mail/ChangeLog index f4290a0d3a7..b04edceaadc 100644 --- a/lisp/mail/ChangeLog +++ b/lisp/mail/ChangeLog @@ -1,3 +1,8 @@ +2006-03-02 Alex Schroeder + + * rmailkwd.el (rmail-read-label): Since rmail-keywords is a list + of symbols, we need to transform it into an alist for completion. + 2006-03-01 Alex Schroeder * rmailsum.el (rmail-summary-kill-label): Use rmail-kill-label diff --git a/lisp/mail/rmailkwd.el b/lisp/mail/rmailkwd.el index 8c294a4b36d..fa59ff91d85 100644 --- a/lisp/mail/rmailkwd.el +++ b/lisp/mail/rmailkwd.el @@ -137,7 +137,8 @@ message." (concat prompt (if rmail-last-label (concat " (default " default "): ") ": ")) - rmail-keywords nil nil nil nil default))))) + (mapcar 'list rmail-keywords) + nil nil nil nil default))))) (setq rmail-last-label (rmail-make-label result t)) ;; return the string, not the symbol result)))