Ben> I will also be posting some design documents I've written on Ben> adding Unicode support and doing other such things to XEmacs. Ben> ben Hello Ben, this sounds exciting! BTW, following two attachments cannot be handled by (emacs-version) "XEmacs 21.1 (patch 10) \"Capitol Reef\" [Lucid] (i386-pc-win32) of Sun May 07 2000 on ZJ75T" gnus-version "Pterodactyl Gnus v0.99" When I click on the first, I get following backtrace. Best regards, Adrian Signaling: (invalid-function (macro . #<compiled-function (handle) "...(5)" [nth 0 handle] 3>)) mm-handle-buffer((#<buffer " *mm*<3>"> ("image/jpeg") base64 nil ("inline" (filename . "F:\\DOCUME~1\\BENWIN~1\\LOCALS~1\\Temp\\nsmailVC.jpeg")) nil nil &quot;&lt;part1.392BB9E3.195E230E(a)666.com&gt;&quot;)) url-cid-gnus(&quot;part1.392BB9E3.195E230E(a)666.com&quot;) url-cid("cid:part1.392BB9E3.195E230E＠666.com") url-retrieve-internally("cid:part1.392BB9E3.195E230E＠666.com" nil) url-retrieve("cid:part1.392BB9E3.195E230E＠666.com") w3-fetch("cid:part1.392BB9E3.195E230E＠666.com") widget-image-notify((image buffer #<buffer "*Article*"> :children ((item :to #<marker at 2919 in *Article* 0x26b6d2c> :from #<marker at 2890 in *Article* 0x26b6d44> :button-extent #<extent (2890, 2919) keymap balloon-help button-or-field button 0x23c4900 in buffer *Article*> :help-echo widget-image-summarize :parent #0 :notify widget-image-callback :action widget-default-action :delete widget-default-delete :tab-order -1 :button-face ... :tag "[part1.392BB9E3.195E230E＠666]" :format "%[%t%]" :value usemap :args nil)) where #<marker at 2890 in *Article* 0x269428c> :src "cid:part1.392BB9E3.195E230E＠666.com" column nil row nil :button-face (#<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by ha! ! ! nd."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand.">) :target nil :href nil usemap nil ismap nil alt "[part1.392BB9E3.195E230E＠666]" :args nil) (item :to #<marker at 2919 in *Article* 0x26b6d2c> :from #<marker at 2890 in *Article* 0x26b6d44> :button-extent #<extent (2890, 2919) keymap balloon-help button-or-field button 0x23c4900 in buffer *Article*> :help-echo widget-image-summarize :parent (image buffer #<buffer "*Article*"> :children (#0) where #<marker at 2890 in *Article* 0x269428c> :src "cid:part1.392BB9E3.195E230E＠666.com" column nil row nil :button-face (#<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... d! ! ! on't edit by hand.">) :target nil :href nil usemap nil ismap nil alt "[part1.392BB9E3.195E230E＠666]" :args nil) :notify widget-image-callback :action widget-default-action :delete widget-default-delete :tab-order -1 :button-face (#<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand.">) :tag "[part1.392BB9E3.195E230E＠666]" :format "%[%t%]" :value usemap :args nil) #<buttonup-event button2up>) widget-apply((image buffer #<buffer "*Article*"> :children ((item :to #<marker at 2919 in *Article* 0x26b6d2c> :from #<marker at 2890 in *Article* 0x26b6d44> :button-extent #<extent (2890, 2919) keymap balloon-help button-or-field button 0x23c4900 in buffer *Article*> :help-echo widget-image-summarize :parent #0 :notify widget-image-callback :action widget-default-action :delete widget-default-delete :tab-order -1 :button-face ... :tag "[part1.392BB9E3.195E230E＠666]" :format "%[%t%]" :value usemap :args nil)) where #<marker at 2890 in *Article* 0x269428c> :src "cid:part1.392BB9E3.195E230E＠666.com" column nil row nil :button-face (#<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #! ! ! <face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand.">) :target nil :href nil usemap nil ismap nil alt "[part1.392BB9E3.195E230E＠666]" :args nil) :notify (item :to #<marker at 2919 in *Article* 0x26b6d2c> :from #<marker at 2890 in *Article* 0x26b6d44> :button-extent #<extent (2890, 2919) keymap balloon-help button-or-field button 0x23c4900 in buffer *Article*> :help-echo widget-image-summarize :parent (image buffer #<buffer "*Article*"> :children (#0) where #<marker at 2890 in *Article* 0x269428c> :src "cid:part1.392BB9E3.195E230E＠666.com" column nil row nil :button-face (#<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... ! ! ! don't edit by hand.">) :target nil :href nil usemap nil ismap nil alt "[part1.392BB9E3.195E230E＠666]" :args nil) :notify widget-image-callback :action widget-default-action :delete widget-default-delete :tab-order -1 :button-face (#<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand.">) :tag "[part1.392BB9E3.195E230E＠666]" :format "%[%t%]" :value usemap :args nil) #<buttonup-event button2up>) (progn (widget-apply parent :notify widget event)) ) (if parent (progn (widget-apply parent :notify widget event))) ) (when parent (widget-apply parent :notify widget event)) ) (let ((parent ...)) (when parent (widget-apply parent :notify widget event))) ) widget-default-action((item :to #<marker at 2919 in *Article* 0x26b6d2c> :from #<marker at 2890 in *Article* 0x26b6d44> :button-extent #<extent (2890, 2919) keymap balloon-help button-or-field button 0x23c4900 in buffer *Article*> :help-echo widget-image-summarize :parent (image buffer #<buffer "*Article*"> :children (#0) where #<marker at 2890 in *Article* 0x269428c> :src "cid:part1.392BB9E3.195E230E＠666.com" column nil row nil :button-face (#<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand.">) :target nil :href nil usemap nil ismap nil alt "[part1.392BB9E3.195E230E＠666]" :args nil) :notify widget-image-callback :! ! ! action widget-default-action :delete widget-default-delete :tab-order -1 :button-face (#<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand.">) :tag "[part1.392BB9E3.195E230E＠666]" :format "%[%t%]" :value usemap :args nil) #<buttonup-event button2up>) widget-apply((item :to #<marker at 2919 in *Article* 0x26b6d2c> :from #<marker at 2890 in *Article* 0x26b6d44> :button-extent #<extent (2890, 2919) keymap balloon-help button-or-field button 0x23c4900 in buffer *Article*> :help-echo widget-image-summarize :parent (image buffer #<buffer "*Article*"> :children (#0) where #<marker at 2890 in *Article* 0x269428c> :src "cid:part1.392BB9E3.195E230E＠666.com" column nil row nil :button-face (#<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand.">) :target nil :href nil usemap nil ismap nil alt "[part1.392BB9E3.195E230E＠666]" :args nil) :notify widget-image-callback :action wi! ! ! dget-default-action :delete widget-default-delete :tab-order -1 :button-face (#<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand.">) :tag "[part1.392BB9E3.195E230E＠666]" :format "%[%t%]" :value usemap :args nil) :action #<buttonup-event button2up>) (if (widget-apply widget :active) (widget-apply widget :action event) (error "Attempt to perform action on inactive widget")) ) widget-apply-action((item :to #<marker at 2919 in *Article* 0x26b6d2c> :from #<marker at 2890 in *Article* 0x26b6d44> :button-extent #<extent (2890, 2919) keymap balloon-help button-or-field button 0x23c4900 in buffer *Article*> :help-echo widget-image-summarize :parent (image buffer #<buffer "*Article*"> :children (#0) where #<marker at 2890 in *Article* 0x269428c> :src "cid:part1.392BB9E3.195E230E＠666.com" column nil row nil :button-face (#<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand.">) :target nil :href nil usemap nil ismap nil alt "[part1.392BB9E3.195E230E＠666]" :args nil) :notify widget-image-callback :ac! ! ! tion widget-default-action :delete widget-default-delete :tab-order -1 :button-face (#<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand."> #<face w3-style-face-00000 "An Emacs-W3 face... don't edit by hand.">) :tag "[part1.392BB9E3.195E230E＠666]" :format "%[%t%]" :value usemap :args nil) #<buttonup-event button2up>) (progn (widget-apply-action button event)) ) (if (and pos (extent-in-region-p extent pos pos)) (progn (widget-apply-action button event))) ) (when (and pos (extent-in-region-p extent pos pos)) (widget-apply-action button event)) ) (progn (let (...) (nconc merge ...) (setq merge ...) (set-extent-property extent ... merge)) (unless (widget-apply button :mouse-down-action event) (while ... ...)) (set-extent-property extent (quote mouse-face) nil) (set-extent-property extent (quote help-echo) nil) (setq pos (widget-event-point event)) (unless (eq ... ...) (error "Buffer changed during mouse motion")) (when (and pos ...) (widget-apply-action button event))) ) (unwind-protect (progn (let ... ... ... ...) (unless ... ...) (set-extent-property extent ... nil) (set-extent-property extent ... nil) (setq pos ...) (unless ... ...) (when ... ...)) (set-extent-property extent (quote mouse-face) mouse-face) (set-extent-property extent (quote help-echo) help-echo)) ) (let* ((extent ...) (face ...) (mouse-face ...) (help-echo ...)) (unwind-protect (progn ... ... ... ... ... ... ...) (set-extent-property extent ... mouse-face) (set-extent-property extent ... help-echo))) ) (if button (let* (... ... ... ...) (unwind-protect ... ... ...)) (error "`widget-button-click' called outside button")) ) (let* ((pos ...) (button ...)) (if button (let* ... ...) (error "`widget-button-click' called outside button"))) ) (cond ((event-glyph event) (widget-glyph-click event)) ((widget-event-point event) (let* ... ...)) (t (message "You clicked somewhere weird"))) ) (save-current-buffer (set-buffer (event-buffer event)) (cond (... ...) (... ...) (t ...))) ) (with-current-buffer (event-buffer event) (cond (... ...) (... ...) (t ...))) ) widget-button-click(#<buttondown-event button2>) call-interactively(widget-button-click) Ben> [part1.392BB9E3.195E230E＠666] Ben> [part2.392BB9E3.195E230E＠666] Ben> -- Ben> Ben