non-mule xemacs, decoding pdf attachments

[Tatsuya Kinoshita]

On November 12, 2003, [emacs-mime-en:00108],
Yoichi NAKAYAMA <yoichi at geiin.org> wrote:

> > On XEmacs-nomule, mel-b-ccl-module is set to nil and
> > base64-dl-module is set to nil.  So, mel-b-el is used.
> > 
> > Should we modify mel.el instead of FLIM-ELS?  Could you provide a
> > patch?
> 
> Does attached one solve it?

No.  On xemacs-21.4.14-nomule with your patch,
mel-encoding-module-alist didn't include a entry for "base64",
and base64 handling failed.

----
Signaling: (void-function nil)
  nil(684 12089 "/home/tats/debian.jpg")
  mime-write-decoded-region(684 12089 "/home/tats/debian.jpg" "base64")
  #<compiled-function (entity filename) "...(23)" [filename entity 11 mime-write-decoded-region 14 15 mime-entity-encoding "7bit"] 6>([mime-elmo-buffer-entity [0 0 0 0 0 0 0] #<buffer " *Original* *WL:Message*"> ((type . image) (subtype . jpeg)) nil [mime-elmo-buffer-entity [0 0 0 0 0 0 0] #<buffer " *Original* *WL:Message*"> (... ... ...) (... #0) nil nil nil "7bit" (...) nil #<buffer " *Original* *WL:Message*"> 1 398 399 12138] (1) ((type . inline) ("filename" . "debian.jpg")) "base64" ((Content-Transfer-Encoding . "base64") (Content-Disposition . "inline; filename=\"debian.jpg\"")) nil #<buffer " *Original* *WL:Message*"> 573 683 684 12089] "/home/tats/debian.jpg")
  apply(#<compiled-function (entity filename) "...(23)" [filename entity 11 mime-write-decoded-region 14 15 mime-entity-encoding "7bit"] 6> ([mime-elmo-buffer-entity [0 0 0 0 0 0 0] #<buffer " *Original* *WL:Message*"> (... ...) nil [mime-elmo-buffer-entity ... #<buffer " *Original* *WL:Message*"> ... ... nil nil nil "7bit" ... nil #<buffer " *Original* *WL:Message*"> 1 398 399 12138] (1) (... ...) "base64" (... ...) nil #<buffer " *Original* *WL:Message*"> 573 683 684 12089] "/home/tats/debian.jpg"))
  luna-call-next-method()
  luna-apply-generic([mime-elmo-buffer-entity [0 0 0 0 0 0 0] #<buffer " *Original* *WL:Message*"> ((type . image) (subtype . jpeg)) nil [mime-elmo-buffer-entity [0 0 0 0 0 0 0] #<buffer " *Original* *WL:Message*"> (... ... ...) (... #0) nil nil nil "7bit" (...) nil #<buffer " *Original* *WL:Message*"> 1 398 399 12138] (1) ((type . inline) ("filename" . "debian.jpg")) "base64" ((Content-Transfer-Encoding . "base64") (Content-Disposition . "inline; filename=\"debian.jpg\"")) nil #<buffer " *Original* *WL:Message*"> 573 683 684 12089] mime-write-entity-content [mime-elmo-buffer-entity [0 0 0 0 0 0 0] #<buffer " *Original* *WL:Message*"> ((type . image) (subtype . jpeg)) nil [mime-elmo-buffer-entity [0 0 0 0 0 0 0] #<buffer " *Original* *WL:Message*"> (... ... ...) (... #0) nil nil nil "7bit" (...) nil #<buffer " *Original* *WL:Message*"> 1 398 399 12138] (1) ((type . inline) ("filename" . "debian.jpg")) "base64" ((Content-Transfer-Encoding . "base64") (Content-Disposition . "i!
 nline; filename=\"debian.jpg\"")) nil #<buffer " *Original* *WL:Message*"> 573 683 684 12089] "/home/tats/debian.jpg")
  mime-write-entity-content([mime-elmo-buffer-entity [0 0 0 0 0 0 0] #<buffer " *Original* *WL:Message*"> ((type . image) (subtype . jpeg)) nil [mime-elmo-buffer-entity [0 0 0 0 0 0 0] #<buffer " *Original* *WL:Message*"> (... ... ...) (... #0) nil nil nil "7bit" (...) nil #<buffer " *Original* *WL:Message*"> 1 398 399 12138] (1) ((type . inline) ("filename" . "debian.jpg")) "base64" ((Content-Transfer-Encoding . "base64") (Content-Disposition . "inline; filename=\"debian.jpg\"")) nil #<buffer " *Original* *WL:Message*"> 573 683 684 12089] "/home/tats/debian.jpg")
  mime-save-content([mime-elmo-buffer-entity [0 0 0 0 0 0 0] #<buffer " *Original* *WL:Message*"> ((type . image) (subtype . jpeg)) nil [mime-elmo-buffer-entity [0 0 0 0 0 0 0] #<buffer " *Original* *WL:Message*"> (... ... ...) (... #0) nil nil nil "7bit" (...) nil #<buffer " *Original* *WL:Message*"> 1 398 399 12138] (1) ((type . inline) ("filename" . "debian.jpg")) "base64" ((Content-Transfer-Encoding . "base64") (Content-Disposition . "inline; filename=\"debian.jpg\"")) nil #<buffer " *Original* *WL:Message*"> 573 683 684 12089] ((mode . "extract") (image-format . jpeg) (body-presentation-method . mime-display-image) (body . visible) (encoding . "base64") (filename . "debian.jpg") (disposition-type . inline) (subtype . jpeg) (type . image) (major-mode . wl-original-message-mode)))
  mime-play-entity([mime-elmo-buffer-entity [0 0 0 0 0 0 0] #<buffer " *Original* *WL:Message*"> ((type . image) (subtype . jpeg)) nil [mime-elmo-buffer-entity [0 0 0 0 0 0 0] #<buffer " *Original* *WL:Message*"> (... ... ...) (... #0) nil nil nil "7bit" (...) nil #<buffer " *Original* *WL:Message*"> 1 398 399 12138] (1) ((type . inline) ("filename" . "debian.jpg")) "base64" ((Content-Transfer-Encoding . "base64") (Content-Disposition . "inline; filename=\"debian.jpg\"")) nil #<buffer " *Original* *WL:Message*"> 573 683 684 12089] ((mode . "extract") (image-format . jpeg) (body-presentation-method . mime-display-image) (body . visible) (encoding . "base64") (filename . "debian.jpg") (disposition-type . inline) (subtype . jpeg) (type . image) (major-mode . wl-original-message-mode)))
  mime-preview-play-current-entity(nil "extract")
  mime-preview-extract-current-entity(nil)
  call-interactively(mime-preview-extract-current-entity)
----

-- 
Tatsuya Kinoshita