2008年12月19日

[mew-dist 28791] Re: Mew 6.2 release candidate 2

山本です。

> format=flowdの議論が速くて脱落してしまったのですが、
> mew-use-format-flowedを設定しなければ
> 従来どおりの動きをするという認識であっているでしょうか。

標準の引用記号を使うということ以外は、そうです。

> いままで
> (setq mew-cite-prefix " | ")
> という設定をつかっていたのですが、これが効かなくなって
> 実際のprefixが "> " になります。

すいません。

> - (if mew-cite-prefix-confirmp
> + (if (and mew-cite-prefix-confirmp (not mew-use-format-flowed))

ここは OK ですが、

> - (if mew-cite-prefix-function
> + (if (not mew-use-format-flowed)

mew-cite-prefix-function は、確か super cite 用だったと思います。
後方互換を保つためには、こうでしょうか?

--かず

Index: mew-draft.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-draft.el,v
retrieving revision 1.153
diff -c -r1.153 mew-draft.el
*** mew-draft.el 16 Dec 2008 05:54:01 -0000 1.153
--- mew-draft.el 19 Dec 2008 03:28:43 -0000
***************
*** 467,472 ****
--- 467,474 ----
(or force (mew-highlight-body-region (mark-marker) (point) 'draft))
(mew-draft-auto-set-input-method))))

+ (defconst mew-cite-default-prefix "> ")
+
(defun mew-cite-original (&optional arg)
(if (< (marker-position (mark-marker)) (point))
(exchange-point-and-mark))
***************
*** 478,487 ****
(setq label (funcall mew-cite-strings-function))
(error
(error "Syntax of mew-cite-format was changed. Read explanation of mew-cite-fields")))
! (if mew-cite-prefix-function
! (setq prefix (funcall mew-cite-prefix-function))
(setq prefix mew-cite-prefix))
! (if mew-cite-prefix-confirmp
(let ((ask (read-string
(format "Prefix (\"%s\"): " prefix) "")))
(if (not (string= ask "")) (setq prefix ask))))
--- 480,493 ----
(setq label (funcall mew-cite-strings-function))
(error
(error "Syntax of mew-cite-format was changed. Read explanation of mew-cite-fields")))
! (cond
! (mew-cite-prefix-function
! (setq prefix (funcall mew-cite-prefix-function)))
! (mew-cite-prefix
(setq prefix mew-cite-prefix))
! (t
! (setq prefix mew-cite-default-prefix)))
! (if (and mew-cite-prefix-confirmp (not mew-use-format-flowed))
(let ((ask (read-string
(format "Prefix (\"%s\"): " prefix) "")))
(if (not (string= ask "")) (setq prefix ask))))
***************
*** 491,497 ****
(delete-region beg (progn (mew-header-goto-body) (point))))
(insert label)
(mew-push-mark)
! (if mew-cite-prefix-function
(progn
(and (bolp) (insert prefix))
(while (= 0 (forward-line))
--- 497,503 ----
(delete-region beg (progn (mew-header-goto-body) (point))))
(insert label)
(mew-push-mark)
! (if (or mew-cite-prefix-function mew-cite-prefix)
(progn
(and (bolp) (insert prefix))
(while (= 0 (forward-line))
Index: mew-vars.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-vars.el,v
retrieving revision 1.327
diff -c -r1.327 mew-vars.el
*** mew-vars.el 10 Dec 2008 07:48:20 -0000 1.327
--- mew-vars.el 19 Dec 2008 03:28:43 -0000
***************
*** 2119,2125 ****
;;; Citation
;;;

! (defcustom mew-cite-prefix "> "
"*Prefix of citation."
:group 'mew-cite
:type 'string)
--- 2119,2125 ----
;;; Citation
;;;

! (defcustom mew-cite-prefix nil
"*Prefix of citation."
:group 'mew-cite
:type 'string)


投稿者 xml-rpc : 2008年12月19日 12:31
役に立ちました?:
過去のフィードバック 平均:(0) 総合:(0) 投票回数:(0)
本記事へのTrackback: http://hoop.euqset.org/blog/mt-tb2006.cgi/80221
トラックバック
コメント
コメントする




画像の中に見える文字を入力してください。