[Mew-dist 05456] Re: Mew 1.93b44, x-cite, mew-summary-reply-with-citation()

[Shun-ichi GOTO]

後藤＠太陽計測です

>>>>> From: Makoto MATSUSHITA (まつしたまこと) <matusita at example.com>
> で，今日夕食を食べてる時に「私がやりたいことはきっと Mew がそもそも実
> 装している cite な機能をちょっと触るだけでできるんじゃないだろうか」と
> 思ったので，ごそごそと書いてみました．
> 
> 要するに私がやりたいことは(現状からの差分):

これ読んで、むかぁし(1996/9/25)まったく同じ事をしたのを思い出しました。
＃その頃のMewのバージョンはいくつだったろう...

そのときの投稿はもう保存してありませんでしたが、パッチは残っていて、
みてみるとやってることの意味はまったくといっていいほど同じでした。(^^;

＃参考までに自分のも添付しておきます。
＃さすがに今のMewにはあたりませんでしたが、


> ・空行にまで cite な文字列をぶちこむのはうっとうしいので，やめたい．
> ・既に cite されてた行(というのはもちろん正確には判定できませんが，
>   実用的な範囲では regexp で表現できる)に対しては何もしたくない．

SuperCiteの動きに近づけたいということですよね。

そのころのコードではregexpにこんな設定をしていたようですね。
（変数名はちょいとちがいますがそのまま引用）
(setq mew-cite-no-prefix-regex
   "\\([ \t]*$\\|[ \t]*\\([-._a-zA-Z0-9]\\|\\cj\\)*>\\)"
   "*regex to supress prefix on cite-lines")


P.S.
確かその頃、mew-cite-register だったか、mew-cite-prefix-function
に設定する関数でmew-distのどなたかが作った mew-cite-register
とかいうのを使っていた記憶があるのですが、コードもdiskから消えて
しまいました。
製作者は水戸さん<mit at example.com>と.emacsに記録されていました。

現在はmew-cite-prefix-user でPetnameが使えるのですが、
当時は単なるmail addressのユーザ名しか使えなかったため、Petname的な
ものを定義/記憶できるものだったはず。。。

もう一度つかいたいかも ... (ボソ)


--- Regards,
 Shun-ichi Goto  <gotoh at example.com>
   R&D Group, TAIYO Corp., Tokyo, JAPAN


*** mew.el.orig Fri Jun  7 23:29:41 1996
--- mew.el      Wed Sep 25 10:47:39 1996
***************
*** 199,204 ****
--- 199,206 ----

  (defvar mew-cite-prefix "> "
    "*Prefix of citation.")
+ (defvar mew-cite-no-prefix-regex "\\([ \t]*$\\|[ \t]*\\([-._a-zA-Z0-9]\\|\\cj\\)*>\\)"
+   "*regex to supress prefix on cite-lines")
  (defvar mew-cite-hook nil
    "*If you want to use super-cite, (setq mew-cite-hook 'sc-cite-original).")

***************
*** 7018,7026 ****
                           (point))))
        (insert label)
        (set-mark (point)) ;; for C-x C-x
!       (and (bolp) (insert prefix))
        (while (equal 0 (forward-line 1))
        (or (equal (point) (point-max))
            (insert prefix)))
        ) ;; restriction
      )
--- 7020,7031 ----
                           (point))))
        (insert label)
        (set-mark (point)) ;; for C-x C-x
!       ;; (and (bolp) (insert prefix))
!       (and (bolp) (forward-line -1))
        (while (equal 0 (forward-line 1))
        (or (equal (point) (point-max))
+           (and mew-cite-no-prefix-regex
+                (looking-at mew-cite-no-prefix-regex))
            (insert prefix)))
        ) ;; restriction
      )