Hideyuki SHIRAI (白井秀行)
shira****@meado*****
2003年 3月 31日 (月) 20:29:36 JST
From: Daiki Ueno <ueno****@unixu*****> さん曰く Subject: Re: From: 行に含まれる「, 」の処理 Message-ID: <37667****@deisu*****> Date: Sun, 30 Mar 2003 08:38:12 +0900 > > だけど、Mew だと、 > > > Only ASCII is allowed in quoted-string in the header. > > > と叱られてしまう(*1)のですが、叱られた後、手動で " を外せば良い > > ので、これで良いと思います。 > > なるほど。とりあえず lsdb-strip-address というオプションを設けてみました。 ありがとうございます。だけど、lsdb-strip-address を non-nil にし ていると、 > To: yamada(補完) > で > To: 山田太郎 <abcd1****@examp*****> が出来なくて寂しいので、こんな感じで、 lsdb-complete-name-highlight-update() のときに置き換えるのはどう でしょうか。 # ここで、lsdb-extract-address-components() を使うのはなんか違う # ような気もするのですが、他に良い手が見つかりませんでした。^^; -- 白井秀行 (mailto:shira****@meado*****) --- lsdb.el 31 Mar 2003 08:58:31 -0000 1.75 +++ lsdb.el 31 Mar 2003 11:27:51 -0000 @@ -833,6 +833,12 @@ (unless (eq this-command 'lsdb-complete-name) (if lsdb-last-highlight-overlay (delete-overlay lsdb-last-highlight-overlay)) + (when lsdb-strip-address + (let ((addr (buffer-substring-no-properties lsdb-complete-marker (point)))) + (when (and addr + (setq addr (nth 1 (lsdb-extract-address-components addr)))) + (delete-region lsdb-complete-marker (point)) + (insert addr)))) (set-marker lsdb-complete-marker nil) (remove-hook 'pre-command-hook 'lsdb-complete-name-highlight-update t))) @@ -869,10 +875,8 @@ (lambda (candidate) (if (string-match pattern candidate) candidate)) - (if lsdb-strip-address - (cdr (assq 'net value)) - (append (cdr (assq 'net value)) - (cdr (assq 'sender value))))))))) + (append (cdr (assq 'net value)) + (cdr (assq 'sender value)))))))) lsdb-hash-table) ;; Sort candidates by the position where the pattern occurred. (setq lsdb-last-candidates
