[Mew-dist 15164] Re: patches

[Tatsuya Kinoshita]

In message "[Mew-dist 15161] patches"
Kazu Yamamoto (山本和彦) <kazu at example.com> wrote:

> - Cite label のパッチをマージしました。コードは随分直したので、試して
>   下さい。

mew-draft-cite-label-fill-columnが効きませんでした。

fill-columnを束縛する位置を変えると、うまく動くようになりました。

-- 
木下達也 (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.95b82-mewdist-15161/mew-draft.el mew-1.95b82-tats20001128b/mew-draft.el
--- mew-1.95b82-mewdist-15161/mew-draft.el	Tue Nov 28 13:57:09 2000
+++ mew-1.95b82-tats20001128b/mew-draft.el	Tue Nov 28 14:31:13 2000
@@ -542,13 +542,13 @@
 	     (label (apply (function format) mew-cite-format vals))
 	     (ellipses (if (stringp mew-draft-cite-ellipses)
 			   mew-draft-cite-ellipses ""))
-	     (fill-column (or mew-draft-cite-label-fill-column
-			      fill-column))
 	     beg eol)
 	(if (not (or (eq mew-draft-cite-fill-mode 'truncate)
 		     (eq mew-draft-cite-fill-mode 'wrap)))
 	    label
 	  (mew-set-buffer-tmp)
+	  (let ((fill-column (or mew-draft-cite-label-fill-column
+				 fill-column)))
 	  (insert label)
 	  (goto-char (point-min))
 	  (while (not (eobp))
@@ -567,6 +567,7 @@
 	      (end-of-line)
 	      (fill-region beg (point))))
 	    (forward-line))
+	  )
 	  (buffer-string))))))
 
 (defun mew-cite-prefix-username ()