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

NAKANO Mitutosi m_nakano at example.com
1997年 4月 8日 (火) 19:02:49 JST


こちらで以下のpatchを当てた時点では、C-cyすると
引用部分をインデントも">"を入れる事もしないのですが、
これは仕様と考えてよろしいのでしょうか?
なおsuperciteは使用しておりません。


-------- こんな感じに引用されます。
このパッチでどうでしょうか。
この前のパッチを当てた後に当てて下さい。
-- 
酒井 清隆 (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)))
-------- 引用部終り。

-- 
中野充敏(NAKANO Mitutosi) <URL:mailto:m_nakano at example.com>



Mew-dist メーリングリストの案内