[Mew-dist 827] Re: mew-draft-yank

[SAKAI Kiyotaka]

>> In article <19970407092834Q.haji at example.com>, Takato Ohashi <haji at example.com> writes:

> 一つ忘れていました。前から変わった訳ではありませんが、
> C-cy で引用すると引用後カーソルは引用した文の後ろになります。
> ＃ C-cC-y で引用するとカーソルは引用した文の前にあります。
> ＃ 私は supercite を使っているので mew の動きとは違うのかも知れません。
> 引用後のカーソル位置は引用した文の前にある方がいいかなと思います。

このパッチでどうでしょうか。
この前のパッチを当てた後に当てて下さい。
-- 
酒井 清隆 (E-mail: ksakai at example.com)


===================================================================
RCS file: RCS/mew-draft.el,v
retrieving revision 1.3
diff -u -r1.3 mew-draft.el
--- mew-draft.el	1997/04/04 06:18:56	1.3
+++ mew-draft.el	1997/04/07 02:58:34
@@ -648,7 +648,7 @@
 (defun mew-draft-yank ()
   (interactive)
   (mew-draft-refresh)
-  (let ((cite))
+  (let ((obuf (current-buffer)) cite)
     (save-excursion
       (set-buffer (mew-buffer-message))
       (save-restriction
@@ -666,9 +666,10 @@
 		(mew-buffer-substring (point) (point-max)))
 	       )
 	      )
-	))
-    (insert-string cite)
-    ))
+	)
+      (set-buffer obuf)
+      (insert-string cite)
+    )))
 
 (defun mew-cite-strings ()
   (let ((fields (mapcar (function mew-header-get-value) mew-cite-fields)))