Re: %{...} in mailcap (was: bugs in mailcap (patch: 93-zsh3))

[wmperry@aventail.com (William M. Perry)]

Shenghuo ZHU <zsh@cs.rochester.edu> writes:

> >>>>> "LMI" == Lars Magne Ingebrigtsen <bugs@gnus.org> writes:
> 
> >> Here the patch. By the way, I guess mm-display-external do not handle
> >> %-sequences like %{name}, %{patchnumber}.
> 
> LMI> No, it doesn't -- I didn't even know that one could do that.  Is the
> LMI> mailcap format specified anywhere?
> 
> The following is cited from mailcap manual of RedHat 6.0 (by Nathaniel
> S. Borenstein).

The original mm.el code handles this type of thing in
'mm-unescape-mime-test' but I don't think it did it when actually passing
things to the viewers.

	    (cond
	     ((null save-chr) nil)
	     ((= save-chr ?t)
	      (delete-region save-pos (progn (forward-char 1) (point)))
	      (insert (or (cdr (assoc "type" type-info)) "\"\"")))
	     ((= save-chr ?M)
	      (delete-region save-pos (progn (forward-char 1) (point)))
	      (insert "\"\""))
	     ((= save-chr ?n)
	      (delete-region save-pos (progn (forward-char 1) (point)))
	      (insert "\"\""))
	     ((= save-chr ?F)
	      (delete-region save-pos (progn (forward-char 1) (point)))
	      (insert "\"\""))
>>>>	     ((= save-chr ?{)
>>>>	      (forward-char 1)
>>>>	      (skip-chars-forward "^}")
>>>>	      (downcase-region (+ 2 save-pos) (point))
>>>>	      (setq subst (buffer-substring (+ 2 save-pos) (point)))
>>>>	      (delete-region save-pos (1+ (point)))
>>>>	      (insert (or (cdr (assoc subst type-info)) "\"\"")))
	     (t nil))

-bp