[Mew-dist 09926] Re: b45

[ISOBE/]

磯部です。

=== 『"kazu" == <Kazu>』 殿(以降敬称略)が
=== 『Sat, 31 Jul 1999 09:56:12 +0900』 頃に書いた
=== 『[Mew-dist 09918] Re: b45』 について

>> このようになる場合のならない場合があるようなので調べてみたら
>> 以下のようになりました。b46 です。
>> 
>> w で新規にメイルを書く場合は効く。
>> a で返信を書く場合も効く。
>> A で返信を書くと効かなくなる。それ以降は新規メイルでもダメ。
>> 
>> のようです。

kazu> 例によって、僕の環境では再現しません。もし、Mew に関係ある Mew 以外の
kazu> パッケージをお使いでしたら、それを外して試して下さい。

SuperCite の設定を外したら動いているみたいなので私の設定の問
題なのでしょう。ありがとうございます。

以下のように設定していました。
# elisp 分からないので汚ないですけど ^^;
-------------- next part --------------

 (add-hook 'mew-cite-hook 'sc-cite-original )

;;; --- Supercite を使ってみる ----------------------------------
(autoload 'sc-cite-original     "supercite" "Supercite 3.1" t)

(add-hook 'sc-electric-mode-hook
	  '(lambda() (setq sc-electric-references-p nil)))
(add-hook 'sc-load-hook
	  '(lambda()
	     (setq sc-preferred-header-style 1)
	     (setq sc-citation-leader "")
	     (setq sc-citation-delimiter ">")
	     (setq sc-reference-tag-string "=== ")
	     (setq sc-auto-fill-region-p nil) ; 勝手に fill しない
            ;(setq sc-nested-citation-p t) 名前を引用符に含めるなら設定しない
	     (setq sc-preferred-attribution-list
		   '( "sc-consult"
		      "sc-lastchoice" "x-attribution"
		      "emailname"
		      "firstname" "initials" "lastname"))
	     (setq sc-citation-root-regexp "\\([-._a-zA-Z0-9]\\|\\cj\\)*" )
	     (setq sc-citation-delimiter-regexp "[>|:：＞》]+" )
	     (setq sc-preferred-header-style 8)      ; choice iso-orig
	     (setq sc-rewrite-header-list
		   '((sc-no-header)
		     (sc-header-on-said)
		     (sc-header-inarticle-writes)
		     (sc-header-regarding-adds)
		     (sc-header-attributed-writes)
		     (sc-header-author-writes)
		     (sc-header-verbose)
		     (sc-no-blank-line-or-header)
		     (sc-header-iso-orig) ; It's my setting
		     ))
	     (defun sc-header-iso-orig ()            ;これは自分用の設定関数
	       nil
	       (let ((sc-mumble "")
		     (whofrom (sc-whofrom)))
		 (if whofrom
		     (insert sc-reference-tag-string
			     (sc-hdr "『\"" (sc-mail-field "sc-attribution") "\" == ")
			    ;(sc-hdr ""   (sc-mail-field "sc-author") " ")
			     (sc-hdr ""   (sc-mail-field "sc-attribs-<>-address") " ")
			     (or (sc-hdr "<" (sc-mail-field "sc-from-address") ">』" t)
				 (sc-hdr "<" (sc-mail-field "sc-reply-address") ">』"  t)
				 "")
			     " 殿(以降敬称略)が\n"))
		 (if whofrom
		     (insert sc-reference-tag-string
			     (sc-hdr "『" (sc-mail-field "date" ) "』" t)
			     " 頃に書いた\n"))
		 (if whofrom
		     (insert sc-reference-tag-string
			     (sc-hdr "『" (sc-mail-field "subject" ) "』" t)
			     " について\n"))))
	     ))

(autoload 'sc-cite-original "sc-register" "Supercite 3.1" t) ; 3.1 用
-------------- next part --------------
Mew の Addrbook は便利なのですが、引用符としては使い辛いので 
SuperCite を使っていました。
Addrbook の shortname, nickname, name は
・shortname :ヘッダに書く時のために自分の頭の中で覚えやすい
             言葉で書いておくので、引用符としては適さない(相
             手に見せるには不適切な場合もあり)
・nickname  :Summary モードの時に表示される名前(相手に送られ
             ない)全角で5文字程度までで引用符には長いことが
             多い。
・name      :アドレスを展開する時に使う名前(相手に送られる)
             ちょっと長目の文字列。引用符には長過ぎる。
SuperCite での引用符は、大抵姓または姓の一部を使っていました。

困ったな...
-------------- next part --------------
テキスト形式以外の添付ファイルを保管しました...
ファイル名: 無し
型:         application/pgp-signature
サイズ:     285 バイト
説明:       無し
URL:        <http://www.mew.org/pipermail/mew-dist/attachments/19990802/c6923563/attachment.bin>