[mew-dist 21897] Re: フォルダ間移動の利便性向上計画

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 21892] Re: フォルダ間移動の利便性向上計画
Message-ID: <20021010.165423.125124786.kazu at example.com>
Date: Thu, 10 Oct 2002 16:54:23 +0900 (JST)

> > % を打てば、勝手に + が消える、というのはだめですか?
> 
> 実装しました。

何回か話題に出ていると思うのですが、Emacs21 の minibuffer では

Folder name (+inbox): +

入力部分の '+' の point() は 'F' の部分から数えているので、期待
通りに動きません。beginning-of-line() すると '+' に動くので、そ
こからの差分で動作するように変えました。

# 本当は minibuffer-prompt-end() を使うべきでしょうが、パッチで
# は従来からの手法を使っています。

-- 
白井秀行 (mailto:shirai at example.com)

*** mew-minibuf.el.orig	Thu Oct 10 19:17:38 2002
--- mew-minibuf.el	Thu Oct 10 19:14:04 2002
***************
*** 66,83 ****
  
  (defun mew-input-folder-prefix ()
    (interactive)
!   (let ((pos (point)))
      (cond
!      ((= pos 1)
        (insert last-command-char))
!      ((and (= pos 2)
  	   (save-excursion
  	     (forward-char -1)
  	     (looking-at "[-+*%$]")))
        (forward-char -1)
        (delete-char 1)
        (insert last-command-char))
!      ((and (> pos 2)
  	   (save-excursion
  	     (forward-char -2)
  	     (looking-at "[:,][-+*%$]")))
--- 66,84 ----
  
  (defun mew-input-folder-prefix ()
    (interactive)
!   (let ((pos (- (point) (save-excursion (beginning-of-line)
! 					(point)))))
      (cond
!      ((= pos 0)
        (insert last-command-char))
!      ((and (= pos 1)
  	   (save-excursion
  	     (forward-char -1)
  	     (looking-at "[-+*%$]")))
        (forward-char -1)
        (delete-char 1)
        (insert last-command-char))
!      ((and (> pos 1)
  	   (save-excursion
  	     (forward-char -2)
  	     (looking-at "[:,][-+*%$]")))