[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 メーリングリストの案内