[Mew-dist 09835] mew-header-encode-region

[Takuro Horikawa]

堀川です。


以下のように、Ascii only な To: を書いて、
-----
To: hoge hoge-ta <hoge-ta at example.com>, hoge hoge-o <hopge-o at example.com>, hoge hoge-ro <hoge-ro at example.com>
-----
C-c C-m すると、
-----
To: hoge hoge-ta <hoge-ta at example.com>, hoge hoge-o
 <hopge-o at example.com>, hoge hoge-ro <hoge-ro at example.com>
-----
こんな風に、改行されてとても悲しいです。


個人的には、
-----
To: hoge hoge-ta <hoge-ta at example.com>,
 hoge hoge-o <hopge-o at example.com>,
 hoge hoge-ro <hoge-ro at example.com>
-----
と、改行されるのが正しい*気*がするのですが....

で、patchです。

単に、Ascii かどうかのチェックを外しただけです。

これが、本当に正解なのかは、良く判っていません。
----------------------------------------
堀川　拓郎　takuroho at example.com
-------------- next part --------------
--- mew-bq.el~	Mon Jun 28 11:59:02 1999
+++ mew-bq.el	Wed Jul 14 20:49:04 1999
@@ -498,8 +498,8 @@
 	  (setq last (1- (point)))
 	  (if (= last med)
 	      ()
-	    (if (equal (list mew-lc-ascii) (mew-find-cs-region med last))
-		() ;; no encoding
+; 	    (if (not (equal (list mew-lc-ascii) (mew-find-cs-region med last)))
+; 		() ;; no encoding
 	      (setq str (buffer-substring med (1- (point)))) ;; excluding \n
 	      (delete-region med (point))
 	      (setq type (mew-field-type-for-encoding key))
@@ -514,7 +514,7 @@
 		(mew-header-encode-text str))
 	       ((equal type 'unstruct)
 		(mew-header-encode-text str)))
-	      (insert "\n")) ;; previously deleted, so insert here
+	      (insert "\n");) ;; previously deleted, so insert here
 	    (mew-header-fold-region start (point) med)))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;