[Mew-dist 05270] Re: kill&yank email address

[SAKAI Kiyotaka]

>> In article <19980701194904B.obata at example.com>, OBATA Noboru <obata at example.com> writes:

> 小幡です。報告のみでお許し下さい。
> b43 で mew-summary-reply などで draft を用意し、ヘッダ部からメー
> ルアドレスを kill して本文に yank しますと、その行以降にシグネチャ
> の挿入ができません。

> C-TAB を押すと、ミニバッファに No circular completion here と出
> 力されます。describe-key で調べたところ mew-draft-circular-comp
> が実行されています。

原因は、local-map の property が継承されてしまうことですね。

ただ、原因は分かっても、解決するには draft-buffer で property を継承し
ない yank を再定義するしか思いつかないのですが…。

(defun mew-yank (&optional arg)
  (interactive "*P")
  (setq this-command t)
  (push-mark (point))
  (let ((opoint (point)))
    (insert (current-kill (cond
                           ((listp arg) 0)
                           ((eq arg '-) -1)
                           (t (1- arg)))))
    (let ((inhibit-read-only t))
      (set-text-properties opoint (point) nil)))
  (if (consp arg)
      (goto-char (prog1 (mark t)
                   (set-marker (mark-marker) (point) (current-buffer)))))
  (setq this-command 'yank)
  nil)

(define-key mew-draft-mode-map "\C-y" 'mew-yank)

-- 
酒井 清隆 (E-mail: ksakai at example.com)