[Mew-dist 15051] Re: cite labelの制限

[Tatsuya Kinoshita]

In message "[Mew-dist 15043] Re: cite labelの制限"
KOIE Hidetaka (鯉江英隆) <hide at example.com> wrote:

>     (setq mew-draft-cite-fill-mode 'wrap)
> と設定すれば「詰める(折り返す)」になり、
>     (setq mew-draft-cite-fill-mode 'truncate)
>     (setq mew-draft-cite-dotdot " …")    
> と設定すれば「削る」になります。

試してみたところ、cite labelには、fill-columnよりも長い文字を許容し
たくなり、下記のように設定できるといいな、と思いました。

  (setq-default fill-column 66)
  (setq mew-draft-cite-label-fill-column 76)

-- 
木下達也 (Tatsuya Kinoshita)
-------------- next part --------------

 This patch is written by Tatsuya Kinoshita.

 Permission is granted to use, copy, distribute and/or modify it 
 without restriction.  There is NO WARRANTY.

diff -ur mew-1.95b80-mew-dist-15043/mew-draft.el mew-1.95b80-mew-dist-15043a/mew-draft.el
--- mew-1.95b80-mew-dist-15043/mew-draft.el	Sat Nov 25 15:56:03 2000
+++ mew-1.95b80-mew-dist-15043a/mew-draft.el	Sat Nov 25 17:06:39 2000
@@ -543,6 +543,8 @@
                     mew-cite-format
                     (mapcar (function mew-cite-get-value) mew-cite-fields))))
         (mew-set-buffer-tmp)
+	(if mew-draft-cite-label-fill-column
+	    (setq fill-column mew-draft-cite-label-fill-column))
         (insert label)
         (goto-char (point-min))
         (while (< (point) (point-max))
diff -ur mew-1.95b80-mew-dist-15043/mew-vars.el mew-1.95b80-mew-dist-15043a/mew-vars.el
--- mew-1.95b80-mew-dist-15043/mew-vars.el	Sat Nov 25 15:56:04 2000
+++ mew-1.95b80-mew-dist-15043a/mew-vars.el	Sat Nov 25 16:49:51 2000
@@ -949,6 +949,10 @@
   :group 'mew-cite
   :type 'string)
 
+(defvar mew-draft-cite-label-fill-column nil
+  "If *non-nil*, this value is used for mew-draft-cite-fill-mode 
+instead of fill-column")
+
 (defcustom mew-summary-reply-position 'body
   "If 'body, the cursor locates in the beginning of the body. 
 Otherwise, the cursor is after To:."