[mew-dist 19402] Re: "c"

[Tatsuya Kinoshita]

In message [mew-dist 19392], on Wed, 17 Oct 2001,
Kazu Yamamoto (山本和彦) <kazu at example.com> wrote:

> > `+this'になっていますが、これも`+this,+'になってほしい。
> 
> ちゃんと試していませんが、上記を実装したつもりです。

パッチを作りました。内容は次のとおり。

  * `c'でguessできなかった場合に、`+this,'ではなく`+this,+'にする。

  * `o'で`+foo,+'と入力した場合に、~/Mail直下へ移さずに無視する。
    (~/Mail直下へ移したいなら、`+'ではなく`+.'を使う)

  * `o'でguessできなかった場合に、`+'のままRETを押すと`Wrong type
    argument'というエラーになるのを回避。

なお、ポイント問題には手をつけていません。

-- 
木下達也
-------------- next part --------------

 This patch is written by Tatsuya Kinoshita.  Copyright is disclaimed.

diff -cr mew/mew-minibuf.el mew-tats/mew-minibuf.el
*** mew/mew-minibuf.el	Wed Oct 17 18:06:00 2001
--- mew-tats/mew-minibuf.el	Wed Oct 17 22:55:02 2001
***************
*** 80,89 ****
        (directory-file-name folder)))) ;; +foo/ -> +foo
  
  (defun mew-input-folders (default)
!   (let ((editp (consp default))
! 	prompt init folders)
      (cond
!      (editp
        (setq prompt "Folder name: ")
        (setq init (mew-join "," default)))
       (t
--- 80,88 ----
        (directory-file-name folder)))) ;; +foo/ -> +foo
  
  (defun mew-input-folders (default)
!   (let (prompt init folders)
      (cond
!      ((consp default)
        (setq prompt "Folder name: ")
        (setq init (mew-join "," default)))
       (t
***************
*** 96,109 ****
  					mew-input-map
  					nil
  					'mew-input-folder-hist))
-     (if (string= folders "+") (setq folders ""))
      (setq folders (mapcar (function mew-chop) (mew-split folders ?,)))
!     (if editp
! 	(setq folders (delete "+" folders))
!       (unless folders
! 	(setq folders (list default))))
!     ;; +foo/ -> +foo
!     (mapcar (function directory-file-name) folders)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
--- 95,109 ----
  					mew-input-map
  					nil
  					'mew-input-folder-hist))
      (setq folders (mapcar (function mew-chop) (mew-split folders ?,)))
!     (when folders
!       (setq folders (delete "+" folders)))
!     (when (and (null folders) (stringp default))
!       (setq folders (list default)))
!     (if folders
! 	;; +foo/ -> +foo
! 	(mapcar (function directory-file-name) folders)
!       nil)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
diff -cr mew/mew-refile.el mew-tats/mew-refile.el
*** mew/mew-refile.el	Wed Oct 17 18:06:00 2001
--- mew-tats/mew-refile.el	Wed Oct 17 22:47:56 2001
***************
*** 442,447 ****
--- 442,448 ----
  	;; single guess
  	(setq singlep t)
  	(setq cands (list (nth 0 (car learn-info))))))
+       (setq cands (delete nil cands))
        (when exfld
  	(if (or (null cands) (equal (list exfld) cands))
  	    (setq cands (list "+")))