[Mew-dist 06780] Re: Decode of From Line

[SASAKI Takeshi]

佐々木@富士通です。

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
> quote された encoded-word を復号するオプションを付けてもらっても構いま
> せん。僕は時間がないので誰かお願いします。とっても簡単だと思います。

作ってみました。添付する patch で以下のように動作します。

1. mew-decode-quoted を non-nil にすると quote された encoded-word 
を復号する(デフォルトは nil)。

2. M-x mew-summary-toggle-decode-quoted で復号の動作を切替え
る(迷ったのですがキーを割り当てるのはやめました)。

	富士通企画本部企画部第一計画部
	(旧ソフトウェア事業本部企画部第一計画部)
	佐々木 健 (mailto:sasaki at example.com)

-------------- next part --------------
*** mew-bq.el.orig	Mon Aug 24 23:45:09 1998
--- mew-bq.el	Thu Oct 22 19:56:46 1998
***************
*** 518,525 ****
  	(goto-char (point-min))
  	(while (re-search-forward regex nil t)
  	  (if (eq (char-after (match-beginning 0)) ?\")
! 	      (if (re-search-forward "[^\\]\"" nil t)
! 		  (goto-char (match-end 0)))
  	    (setq beg (match-beginning 0)
  		  end (match-end 0)
  		  cs-str (mew-header-decode (mew-match 1)
--- 518,527 ----
  	(goto-char (point-min))
  	(while (re-search-forward regex nil t)
  	  (if (eq (char-after (match-beginning 0)) ?\")
! 	      (if mew-decode-quoted
! 		  (goto-char (match-end 0))
! 		(if (re-search-forward "[^\\]\"" nil t)
! 		    (goto-char (match-end 0))))
  	    (setq beg (match-beginning 0)
  		  end (match-end 0)
  		  cs-str (mew-header-decode (mew-match 1)
-------------- next part --------------
*** mew-summary.el.orig	Thu Oct 22 19:48:18 1998
--- mew-summary.el	Thu Oct 22 20:14:38 1998
***************
*** 587,592 ****
--- 587,605 ----
     )
    (mew-cache-flush))
  
+ (defun mew-summary-toggle-decode-quoted ()
+   (interactive)
+   (cond
+    (mew-decode-quoted
+     (message "Don't decode quoted MIME encoded-word")
+     (mew-summary-goto-message)
+     (setq mew-decode-quoted nil))
+    (t
+     (message "Decode quoted MIME encoded-word")
+     (setq mew-decode-quoted t))
+    )
+   (mew-cache-flush))
+ 
  (defun mew-summary-show ()
    "Read through messages. That is, display a message, scroll it, 
  and move-then-display another message. 
-------------- next part --------------
*** mew-vars.el.orig	Thu Oct 22 19:52:00 1998
--- mew-vars.el	Thu Oct 22 19:52:02 1998
***************
*** 401,406 ****
--- 401,410 ----
    "*MIME syntax analysis and cache when *non-nil*.
     Skip syntax analysis when nil.")
  
+ (defvar mew-decode-quoted nil
+   "*Decode quoted MIME encoded-word when *non-nil*. 
+   Skip decode when nil.")
+ 
  (defvar mew-summary-cache-use t
    "*If *non-nil*, insert mew-summary-cache-file into Summary mode buffer 
  when the Summary mode is visited and it does not exist in buffer.