Re: Problems with: 1) French guillemets and Big5 in regexps, 2) QP filename MIME

[Georges KO <gko@gko.net>]

Georges KO <gko@gko.net> writes:

>     Another problem I have is with MIME: sometimes, I have the
> following button:
> 
> [2. image/jpeg; =?big5?B?rNm5cS5qcGc=?=]...
> 
>     which cannot be saved (without modifying the name) for viewing...

    To display and save it, I have added
mail-decode-encoded-word-string in gnus-insert-mime-button and
mm-save-part: 

(defun gnus-insert-mime-button (handle gnus-tmp-id &optional displayed)
  (let ((gnus-tmp-name
	 (mail-decode-encoded-word-string
	  (or (mail-content-type-get (mm-handle-type handle)
...

(defun mm-save-part (handle)
  "Write HANDLE to a file."
  (let* ((name (mail-content-type-get (mm-handle-type handle) 'name))
	 (filename (mail-decode-encoded-word-string
		    (mail-content-type-get
		     (mm-handle-disposition handle) 'filename)))
...

    To view the contents, I can save in the temporary directory, but I
have problems when start-process is called in mm-display-external. I
moved the filename stuff in the front: 

(defun mm-display-external (handle method)
  "Display HANDLE using METHOD."
  (let* ((filename (mail-decode-encoded-word-string
		   (mail-content-type-get
		    (mm-handle-disposition handle) 'filename)))
	 (dir (make-temp-name (expand-file-name "emm." mm-tmp-directory)))
	 (file (if filename
		   (expand-file-name (file-name-nondirectory filename)
				     dir)
		 (make-temp-name (expand-file-name "mm." dir)))))
    (mm-with-unibyte-buffer
     (if (functionp method)
...

    But when start-process is called, it seems not to pass Big5
characters to the sub-process. I added coding-system-for-write, where
file-name-coding-system is 'cn-big5:

(let ((coding-system-for-write file-name-coding-system))
  (start-process "*display*"    
		 (setq buffer
		       (generate-new-buffer "*mm*"))
		 shell-file-name
		 shell-command-switch
		 (mm-mailcap-command
		  method file (mm-handle-type handle))))

    but it doesn't work. I tried in *scratch* the same expression
but with (mm-mailcap-...) replaced by some string it returned and
it worked... Why ?
-- 
 Georges KO      Alcatel Telecom Taiwan      gko@alcatel.com.tw / gko@gko.net
              Cycle 78, year 16 (Ji-Mao), month 11 (Bing-Zi), day 16 (Ji-You)