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

[Kazu Yamamoto ( 山本和彦 )]

山本です。

> 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)