[mew-dist 24538] Re: mew-pick-default-field 指定時の動作

[Hideyuki SHIRAI ( 白井秀行 )]

げんじつとーーーーひ

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 24535] Re: mew-pick-default-field 指定時の動作
Message-ID: <20040206.163917.194214046.kazu at example.com>
Date: Fri, 06 Feb 2004 16:39:17 +0900 (JST)

> > そこで "Pick pattern: " の入力で空文字列を入力した時に、
> > mew-pick-default-field 付きの "Pick pattern: " を表示する方が
> > 感覚的に使いやすくなると思いますがどうでしょうか。
> 
> RET が mew-pick-default-field を挿入するコマンドと考えるなら、より適切
> なキーはありそうです。(もちろん、異なる実装が必要ですが。)
> 
> あとは、最初に mew-pick-default-field を表示するか否かのオプションを作
> るのでしょうか。

それなりのポイント位置ならスペースでトグルします。

(defvar mew-pick-default-field-insert nil) ;; or t?
;; (setq mew-pick-default-field "from=") ;; これ初期にしちゃえば

(defun mew-complete-pick-toggle-default ()
  (interactive)
  (cond
   ((and mew-pick-default-field
	 (eq (point) (mew-minibuf-point-min)) )
    (insert mew-pick-default-field))
   ((and mew-pick-default-field
	 (string= mew-pick-default-field (mew-buffer-substring
					  (mew-minibuf-point-min) (point-max))))
    (delete-region (mew-minibuf-point-min) (point-max)))
   (t
    (insert " "))))

(defun mew-input-pick-pattern ()
  (mew-input-clear)
  (let ((mew-input-complete-function 'mew-complete-pick-pattern)
	(keymap (copy-keymap mew-input-map)))
    (define-key keymap " " 'mew-complete-pick-toggle-default)
    (mew-pick-macro-expand-string
     (read-from-minibuffer "Pick pattern: "
			   (and mew-pick-default-field-insert
				mew-pick-default-field)
			   keymap
			   nil
			   'mew-input-pick-pattern-hist))))

-- 
白井秀行 (mailto:shirai at example.com)