*** mew.el.orig	Thu Mar 28 14:47:40 1996
--- mew.el	Sat Mar 30 20:56:27 1996
***************
*** 7,16 ****
  ;;;
  ;;; Author:  Kazuhiko Yamamoto <kazu@is.aist-nara.ac.jp>
  ;;; Created: March 22, 1994
! ;;; Revised: March 28, 1996
  ;;;
  
! (defconst mew-version "Mew version 1.05")
  
  ;;;  Minimum setup.
  ;;;
--- 7,16 ----
  ;;;
  ;;; Author:  Kazuhiko Yamamoto <kazu@is.aist-nara.ac.jp>
  ;;; Created: March 22, 1994
! ;;; Revised: March 30, 1996
  ;;;
  
! (defconst mew-version "Mew version 1.05+")
  
  ;;;  Minimum setup.
  ;;;
***************
*** 2982,2987 ****
--- 2982,3002 ----
        )
      )))
  
+ ;; pattern = key value | logic
+ 
+ (defun mew-pick-input-value (prompt &optional alist)
+   (let ((ret nil))
+     (cond
+      (alist (setq ret (completing-read (format "%s : " prompt)
+ 				       alist
+ 				       nil
+ 				       nil  ;; not require match
+ 				       "")))
+      (t (setq ret (read-string (format "%s : " prompt) "")))
+      )
+     (list ret)
+     ))
+ 
  (defun mew-pick-input-logic (logic)
    (append (mew-pick-input-pattern-raw (format "1 for %s" logic))
  	  (cons logic 
***************
*** 6814,6819 ****
--- 6829,6835 ----
  
  (defun mew-cite-strings ()
    (let ((fields (mapcar (function mew-field-get-value) mew-cite-fields)))
+     (setq fields (mapcar (function (lambda (x) (if (null x) "" x))) fields))
      (apply (function format) mew-cite-format fields)
      ))
  
