[MD:968]Meadow-1.03a2 message-fill-yanked-message

[Keiichi Suzuki <keiichi@xxxxxxxxxxxx>]

>>>>> meadow-develop の Mail No. 967 で、
>>>>> "山田" == Yoshihiko Yamada <yyamada@xxxxxxxxx> さま曰く...

山田> Meadow-1.02 では 動作しています message-fill-yanked-message が
山田> 動作しなくなりました。

Emacs 20.2 と 20.3.5 では fill-individual-paragraphs() の API が変ってし
まっていますね。

さらに、 citation-reqexp にそれなりの値を与えてあげても真っ当に動くとは
思えないんだけれど、 semi-gnus-ja の方で全く報告が上がっていないのがちょっ
と不思議。 > Emacs 20.4 系を使っている方、いかがですか?

;; そういう私も今まで実用として使ったことがないような気がします。

下のパッチで動くようにはなるとは思うのですが、以前のバージョンでの
message-fill-yanked-message の仕様が良くわかっていませんので、全く同じよ
うに動作するかは未確認です。

;; 私のような引用方法で、頭の >>>>> meadow... 何てところも fill してしま
;; いますがそんなものでしょうか?

-- 
鈴木圭一 / keiichi@xxxxxxxxxxxx, kei-suzu@xxxxxxxxxxxxxx
PGP finger print (DH/DSS) 796B B9B1 436B 481C 709B  430C 829F 1705 9BB2 CAF3

-------- 8>< -------- 8>< -------- 8>< -------- 8>< --------
*** fill.el.orig	Thu Feb 04 15:38:36 1999
--- fill.el	Mon Feb 22 14:47:56 1999
***************
*** 1172,1179 ****
  		       (point)))))
  
  (defun fill-individual-paragraphs-citation (string citation-regexp)
!   (string-match citation-regexp
! 		string)
!   (match-string 0 string))  
  
  ;;; fill.el ends here
--- 1172,1183 ----
  		       (point)))))
  
  (defun fill-individual-paragraphs-citation (string citation-regexp)
!   (cond
!    ((stringp citation-regexp)
!     (or (and (string-match citation-regexp string)
! 	     (match-string 0 string))
! 	""))
!    (t
!     string)))
  
  ;;; fill.el ends here
-------- 8>< -------- 8>< -------- 8>< -------- 8>< --------