[Mew-dist 09322] Re: Can you "xcite"?

[SAITO Tetsuya ( さいとてつや )]

さいとです。

From: Takayoshi "TK" KAWATE <taka at example.com>
Subject: [Mew-dist 09321] Can you "xcite"?
Date: Sun, 13 Jun 1999 12:17:24 +0900
Message-Id:<19990612234141J.taka at example.com>

taka> Meadow 1.01 + Mew 1.94b33 + IM116 + xcite 1.27を使用していま
taka> すが，b33にしてから，xciteできなくなってしまいました。

taka> xciteしようとするとミニバッファに

taka>   Args out of range: 0, 0

taka> と表示され，引用できませんでした。

taka> ホームページでMLを検索してみましたが，それらしいのは引っかか
taka> りませんでした。

をを，いつのまにか namazu になってる。インデックスの最終更新が 6/9 な
のでひっかからないんですね。

taka> パッチ等があれば頂けるとうれしいです。

私は白井さんの

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com>
Subject: [Mew-dist 09302] Re: xcite on Mew1.94b33
Date: Fri, 11 Jun 1999 10:16:02 +0900
Message-Id:<19990611101536U.shirai at example.com>

白井> 抜本的な対策はちょっと置いといて ^^;;; 
白井> 以下のパッチ(b32 用だからラインがずれているかもしれない)で動きま
白井> す。

白井> --- mew-draft.el.orig	Wed Jun  2 20:43:06 1999
白井> +++ mew-draft.el	Fri Jun  4 11:09:03 1999
白井> @@ -826,7 +826,7 @@
白井>        ;;
 
白井>        ;; append message-id to references
白井> -      (if ref-msgid
白井> +      (if (and (not force) ref-msgid)
白井>            (save-excursion
白井>              (let ((ref (mew-header-get-value mew-references:))
白井>                    (refl nil) rb)

で動きましたが，

From: Shun-ichi GOTO (後藤 俊一) <gotoh at example.com>
Subject: [Mew-dist 09304] Re: xcite on Mew1.94b33
Date: Fri, 11 Jun 1999 12:00:00 +0900
Message-Id:<19990611115954W.GOTOH at example.com>

後藤> --- xcite.el.orig	Tue Nov 10 16:42:46 1998
後藤> +++ xcite.el	Fri Jun 11 02:36:46 1999
後藤> @@ -809,12 +809,20 @@
後藤>  	    (set-buffer (get-buffer-create (mew-buffer-message)))
後藤> 	    (> (buffer-size) 8))
後藤>  	  (let ((mew-cite-hook '(lambda ())))
後藤> -	    (set-buffer (get-buffer-create " *xcite tmp*"))
後藤> -	    (erase-buffer)
後藤> -	    (condition-case err
後藤> -		(mew-draft-cite nil t)
後藤> -	      (error (mew-draft-cite nil)))
後藤> -	    (setq major-mode 'mew-message-mode)
後藤> +	    (let ((tail (- (point-max) (point)))
後藤> +		  (flag (buffer-modified-p)) ; keep modified flag
後藤> +		  str end)
後藤> +	      (condition-case err
後藤> +		  (mew-draft-cite nil t)
後藤> +		(error (mew-draft-cite nil)))
後藤> +	      (setq end (- (point-max) tail)
後藤> +		    str (buffer-substring (point) end))
後藤> +	      (delete-region (point) end)
後藤> +	      (set-buffer-modified-p flag) ; restore flag
後藤> +	      (set-buffer (get-buffer-create " *xcite tmp*"))
後藤> +	      (erase-buffer)
後藤> +	      (insert str)
後藤> +	      (setq major-mode 'mew-message-mode))
後藤>  	    t))
後藤>       (catch 'found
後藤>         (while (not (eq (select-window (next-window)) curw))

こっちの必要だった方もいらっしゃるようなので，両方試してみるというのが
よいのではないでしょうか。

＃あとは雲隠れしたかずさん待ちか?

-- 
さいとてつや (saito at example.com)