Re: error "Unbalanced parentheses"

>>>>> In [semi-gnus-ja : No.20924]  wrote:

> User-Agent: Gnus/5.110006 (No Gnus v0.6) Emacs/22.0.94 (berkeley-unix)
> 

> Microsoft Outlook Express )
> 

> From: ")  " <[email protected]>

>  Backtrace 

  signal(error ("Unbalanced parentheses"))

>  In-Reply-To 

> In-Reply-To: <msgid@....> ()  's message of ...)

> ()


FLIM  OK 


 rfc2047-encode-message-header  mime-encode-header-in-buffer


In-Reply-To: <msgid@....> ()   <[email protected]>)
 -> r-e-m-h: ,  m-e-h-i-b: 

To: )   <[email protected]>
 -> r-e-m-h: ,  m-e-h-i-b: 



To: foo@bar ()






[...]

> 

> 1. 
>    
> 2. 
>    
>    In-Reply-To 
> 3. 

Gnus  In-Reply-To 
"..." [1]


--8<---------------cut here---------------start------------->8---
(defadvice message-make-in-reply-to (around quote-name-in-from activate)
  "Quote the name containing non-ASCII characters in the From address."
  (setq
   ad-return-value
   (when message-reply-headers
     (let ((from (mail-header-from message-reply-headers))
	   (date (mail-header-date message-reply-headers))
	   (msg-id (mail-header-message-id message-reply-headers)))
       (when from
	 (let ((name (mail-extract-address-components from)))
	   (concat msg-id (if msg-id " (")
		   (if (car name)
		       (if (string-match "[^\000-\177]" (car name))
			   (concat "\"" (car name) "\"")
			 (car name))
		     (nth 1 name))
		   "'s message of \""
		   (if (or (not date) (string= date ""))
		       "(unknown date)" date)
		   "\"" (if msg-id ")"))))))))
--8<---------------cut here---------------end--------------->8---

 In-Reply-To 
References  ~/.gnus.el


--8<---------------cut here---------------start------------->8---
(setq message-required-mail-headers
      (delq 'In-Reply-To
	    (delete '(optional . In-Reply-To)
		    message-required-mail-headers)))
--8<---------------cut here---------------end--------------->8---

[1] RFC2047  "..." 
     "..." 

;;  18:44:05 (?) 
;;  23:16:57 ...
--