[mew-int 2353] patch for emacs-unicode-2 (was: make client process failed, connection refused)

[Tatsuya Kinoshita]

On September 22, 2006, [mew-int 2212],
tats (at vega.ocn.ne.jp) wrote:

> Though I don't know the cause of your problem, I've installed Emacs
> 23 (emacs-unicode-2) on my Debian box (sid i386), and POP and SMTP
> with Mew works.
> 
> However, I've encountered other problems, such as void-function
> update-coding-systems-internal, auto-detection of encodings fails,
> MIME-decoding often fails.

To reproduce:

- Type `C-c C-l RET' in Summary, then an error of "void-function
  update-coding-systems-internal" occurs.
- Put the mail [mew-dist 27830] on 2007-08-23 and type `s all RET' in
  Summary, then an error of "args-out-of-range "xxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
  26089)" occurs.  (With my customized mew-summary-form, From in Summary
  is displayed as "**BROKEN ADDRESS**", body is displayed as no-conversion,
  and `C-c C-l RET' causes "MIME decoding error: nil".)

To prevent these prolems, I've created an add-hoc patch.  It seems
to work nicely.

----
--- mew-mule3.el.orig
+++ mew-mule3.el
@@ -349,7 +349,7 @@
     (cond
      (mew-xemacs-p
       (setq categories (nreverse checked-ctgs)))
-     (t
+     ((fboundp 'update-coding-systems-internal)
       (update-coding-systems-internal)))
     (mew-set-coding-priority categories)))
 
--- mew-header.el.orig
+++ mew-header.el
@@ -272,7 +272,7 @@
 
 (defun mew-addrstr-parse-syntax-list (str sep addrp &optional depth)
   (when str
-    (if (featurep 'mew-temacs)
+    (if (or (featurep 'mew-temacs) (>= emacs-major-version 23))
 	(setq str (string-as-unibyte str))) ;; A bug of Emacs 20.7
     (let* ((i 0) (len (length str))
 	   (par-cnt 0) (tmp-cnt 0) (sep-cnt 0)
@@ -370,7 +370,7 @@
 		(setq ret (cons (mew-match-string 1 tmp) ret))
 	      (setq ret (cons (substring tmp 0 tmp-cnt) ret)))))) ;; end of catch
       (setq ret (delete nil ret))
-      (if (featurep 'mew-temacs)
+      (if (or (featurep 'mew-temacs) (>= emacs-major-version 23))
 	  (mapcar 'string-as-multibyte (nreverse ret)) ;; A bug of Emacs 20.7
 	(nreverse ret)))))
 
----

Thanks,
-- 
Tatsuya Kinoshita