From xemacs-m  Mon Jun  2 17:29:35 1997
Received: from jagor.srce.hr (hniksic@jagor.srce.hr [161.53.2.130])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id RAA06165
	for <xemacs-beta@xemacs.org>; Mon, 2 Jun 1997 17:29:33 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id AAA21226; Tue, 3 Jun 1997 00:29:34 +0200 (MET DST)
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: [Marc Nozell <marc@nozell.com>] xpm bug in Gnus v5.4.56
X-Attribution: Hrv
X-Face: Mie8:rOV<\c/~z{s.X4A{!?vY7{drJ([U]0O=W/<W*SMo/Mv:58:*_y~ki>xDi&N7XG
        KV^$k0m3Oe/)'e%3=$PCR&3ITUXH,cK>]bci&<qQ>Ff%x_>1`T(+M2Gg/fgndU%k*ft
        [(7._6e0n-V%|%'[c|q:;}td$#INd+;?!-V=c8Pqf}3J
X-Windows: putting new limits on productivity.
From: Hrvoje Niksic <hniksic@srce.hr>
Date: 03 Jun 1997 00:29:33 +0200
Message-ID: <kigiuzwskoi.fsf@jagor.srce.hr>
Lines: 250
X-Mailer: Gnus v5.4.52/XEmacs 20.2

Uh, this is too much for me.  I thought the whole point of doing this:

(make-glyph '([xpm :file "something.xpm"]
              [gif :file "something.gif"]
              [xbm :file "something.xbm"]
              [string :data "Image"]))

was to try, in turn, each of these formats.  But it turns out that
this bugs out when XEmacs is compiled without xpm, gif, etc.

It also turns out that my code is worth shit. :-(

#@$@#$@#$@#$@#$#$@#$@#$@#$@##@$@$#@#$#@$@#$

-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
`VI' - An editor used by those heretics that don't subscribe to
       the Emacs religion.
------- Start of forwarded message -------
To: bugs@gnus.org (The Gnus Bugfixing Girls + Boys)
Cc: Hrvoje Niksic <hniksic@srce.hr>, Marc Nozell <marc@nozell.com>
Subject: xpm bug in Gnus v5.4.56
From: Marc Nozell <marc@nozell.com>
Date: 02 Jun 1997 15:00:34 -0400
Message-Id: <yfd4tbgakz1.fsf@ibgzko.zko.dec.com>

--Multipart_Mon_Jun__2_15:00:34_1997-1
Content-Type: text/plain; charset=US-ASCII

Gnus v5.4.55; nntp 5.0; nnml 1.0; nndoc 1.0; nnfolder 1.0
XEmacs 19.15 [Lucid] (alpha-dec-osf3.2) of Wed Apr  2 1997 on ibgzko.zko.dec.com
200 nntpd.lkg.dec.com InterNetNews NNRP server INN 1.5b1 28-Sep-1996 ready (posting ok).

Ignore the bit about v5.4.55, this bug is is for v5.4.56.

    LMI> Sat May 31 14:42:53 1997  Hrvoje Niksic <hniksic@srce.hr>
    LMI> 	* gnus-xmas.el: Cleanup.

Too clean.

My Xemacs isn't built with xpm and it bombs on startup.  

The stack trace is below.

-marc

--Multipart_Mon_Jun__2_15:00:34_1997-1
Content-Type: application/octet-stream
Content-Disposition: attachment; filename="bug.txt"
Content-Transfer-Encoding: quoted-printable

Signaling: (error "Invalid image-instantiator format" xpm)
  check-valid-instantiator([xpm :file "/usr/local/lib/xemacs-19.15/etc/gn=
us/gnus-pointer.xpm"] image)
  canonicalize-spec([xpm :file "/usr/local/lib/xemacs-19.15/etc/gnus/gnus=
-pointer.xpm"] image nil)
  byte-code("=08=C1=1A=89=1B=AB=B8=0B:=AC=93=0C=AB=87=C5=C6=C7\"=88=AA=A4=
=C8=C9=CA=08D\"=88=AA=9B=CB=0B@=0E=0C=0C#=89=1E=0D=C7=3D=AB=87=C5=C6=C7\"=
=88=AA=85=0E=0D\nB=12)=0BA=89=13=ACH\n=9F*=87" [spec-list nil result rest=
 noerror throw cann-spec-list t signal error "Invalid list format" canoni=
calize-spec specifier-type res2] 5)
  canonicalize-spec-list(([xpm :file "/usr/local/lib/xemacs-19.15/etc/gnu=
s/gnus-pointer.xpm"] [xbm :file "/usr/local/lib/xemacs-19.15/etc/gnus/gnu=
s-pointer.xbm"] [string :data "Gnus:"]) image)
  set-specifier(#<image-specifier global=3D<unspecified> fallback=3D((nil=
 . ...)) 0xf71> ([xpm :file "/usr/local/lib/xemacs-19.15/etc/gnus/gnus-po=
inter.xpm"] [xbm :file "/usr/local/lib/xemacs-19.15/etc/gnus/gnus-pointer=
=2Exbm"] [string :data "Gnus:"]) nil nil nil)
  set-glyph-property(#<glyph (buffer) #<image-specifier global=3D<unspeci=
fied> fallback=3D(...) 0xf71>0xf70> image ([xpm :file "/usr/local/lib/xem=
acs-19.15/etc/gnus/gnus-pointer.xpm"] [xbm :file "/usr/local/lib/xemacs-1=
9.15/etc/gnus/gnus-pointer.xbm"] [string :data "Gnus:"]) nil nil nil)
  set-glyph-image(#<glyph (buffer) #<image-specifier global=3D<unspecifie=
d> fallback=3D(...) 0xf71>0xf70> ([xpm :file "/usr/local/lib/xemacs-19.15=
/etc/gnus/gnus-pointer.xpm"] [xbm :file "/usr/local/lib/xemacs-19.15/etc/=
gnus/gnus-pointer.xbm"] [string :data "Gnus:"]))
  make-glyph(([xpm :file "/usr/local/lib/xemacs-19.15/etc/gnus/gnus-point=
er.xpm"] [xbm :file "/usr/local/lib/xemacs-19.15/etc/gnus/gnus-pointer.xb=
m"] [string :data "Gnus:"]))
  byte-code("=C0=C1!=AC=84=C2=0B!=11=C1=0CB=14=C0=C5!=AC=85=C2=0E=06!=15=C5=
=0CB=14=C0=C7!=AC=B4=C8=C9!=16\n=CB=CC=0E\n\"=1E=0D=CB=CE=0E\n\"=1E=0F=D0=
=D1=D2=D3=0E=0D#=D1=D4=D3=0E=0F#=D1=D5=D6=D7#E!=1E=18=D9=0E=18=DA\"=88=0E=
=18+=16=07=C7=0CB=14=C0=87" [boundp gnus-xmas-modeline-left-extent copy-e=
xtent modeline-buffer-id-left-extent current-load-list gnus-xmas-modeline=
-right-extent modeline-buffer-id-right-extent gnus-xmas-modeline-glyph me=
ssage-xmas-find-glyph-directory "gnus" gnus-xmas-glyph-directory expand-f=
ile-name "gnus-pointer.xpm" file-xpm "gnus-pointer.xbm" file-xbm make-gly=
ph vector xpm :file xbm string :data "Gnus:" glyph set-glyph-face modelin=
e-buffer-id] 8)
  load-internal("/users/nozell/FSF/gnus-5.4.56/lisp/gnus-xmas.elc" nil t =
t)
  efs-real-load("/users/nozell/FSF/gnus-5.4.56/lisp/gnus-xmas.elc" nil t =
t)
  load("gnus-xmas" nil nil nil)
  (gnus-xmas-define)
)
  (cond ((string-match "XEmacs\\|Lucid" emacs-version) (gnus-xmas-define)=
) ((or ... ...) (let ... ... ...) (unless ... ...)) ((boundp ...) (provid=
e ...)))
)
  (progn (if (string-match "XEmacs\\|Lucid" emacs-version) nil (defvar gn=
us-mouse-face-prop ... "Property used for highlighting mouse regions.")) =
(cond (... ...) (... ... ...) (... ...)))
)
  (eval-and-compile (if (string-match "XEmacs\\|Lucid" emacs-version) nil=
 (defvar gnus-mouse-face-prop ... "Property used for highlighting mouse r=
egions.")) (cond (... ...) (... ... ...) (... ...)))
)
  load-internal("/users/nozell/FSF/gnus-5.4.56/lisp/gnus-ems.el" nil t t)=

  efs-real-load("/users/nozell/FSF/gnus-5.4.56/lisp/gnus-ems.el" nil t t)=

  load("/users/nozell/FSF/gnus-5.4.56/lisp/gnus-ems.el" nil t nil)
  efs-real-require(gnus-ems "/users/nozell/FSF/gnus-5.4.56/lisp/gnus-ems.=
el")
  require(gnus-ems)
  load-internal("/users/nozell/FSF/gnus-5.4.56/lisp/gnus.el" nil t t)
  efs-real-load("/users/nozell/FSF/gnus-5.4.56/lisp/gnus.el" nil t t)
  load("/users/nozell/FSF/gnus-5.4.56/lisp/gnus.el" nil t nil)
  efs-real-require(gnus "/users/nozell/FSF/gnus-5.4.56/lisp/gnus.el")
  require(gnus)
  byte-code("=C0=C1!=88=C2=C3=C4\"=88=C2=C5=C4\"=88=C2=C6=C4\"=88=C2=C7=C8=
\"=88=C0=C9!=87" [require gnus autoload gnus-decode-rfc1522 "gnus-art-mim=
e" gnus-article-preview-mime-message gnus-article-decode-encoded-word gnu=
s-set-summary-default-charset "gnus-sum-mime" gnus-charset] 3)
  load-internal("/usr/local/lib/xemacs/site-lisp/tm/gnus-mime.elc" nil t =
t)
  efs-real-load("/usr/local/lib/xemacs/site-lisp/tm/gnus-mime.elc" nil t =
t)
  load("/usr/local/lib/xemacs/site-lisp/tm/gnus-mime.elc" nil t nil)
  efs-real-require(gnus-mime "/usr/local/lib/xemacs/site-lisp/tm/gnus-mim=
e.elc")
  require(gnus-mime)
  tm-setup/load-gnus()
  run-hooks(gnus-load-hook)
  eval((run-hooks (quote gnus-load-hook)))
  load-internal("/users/nozell/FSF/gnus-5.4.56/lisp/gnus.el" nil t t)
  efs-real-load("/users/nozell/FSF/gnus-5.4.56/lisp/gnus.el" nil t t)
  load("gnus" nil nil nil)
  command-execute(gnus t)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)

--Multipart_Mon_Jun__2_15:00:34_1997-1
Content-Type: text/plain; charset=US-ASCII




------------------ Environment follows ------------------

(setq gnus-select-method
      '(nntp "nntpd.lkg.dec.com"))
(setq gnus-message-archive-method
      '(nnfolder "archive"
		 (nnfolder-inhibit-expiry t)
		 (nnfolder-active-file "~/News/sent-mail/active")
		 (nnfolder-directory "~/News/sent-mail/")))
(setq gnus-message-archive-group
      '((if
	    (message-news-p)
	    "misc-news"
	  (concat "mail."
		  (format-time-string "%Y-%m"
				      (current-time))))))
(setq gnus-nntp-server "nntpd.lkg.dec.com")
(setq gnus-secondary-select-methods
      '((nnml "")))
(setq gnus-local-organization "Digital Equipment Corp., Internet Business Group")
(setq gnus-use-adaptive-scoring t)
(setq gnus-use-nocem t)
(setq gnus-load-hook
      '(tm-setup/load-gnus))
(setq gnus-group-change-level-function
      'gnus-topic-change-level)
(setq gnus-article-display-hook
      '(tm-bbdb/update-record gnus-article-treat-overstrike gnus-article-strip-blank-lines gnus-article-remove-cr gnus-article-highlight gnus-article-add-buttons-to-head gnus-article-emphasize gnus-article-hide-boring-headers))
(setq gnus-auto-select-first nil)
(setq gnus-show-mime t)
(setq gnus-thread-sort-functions
      '(gnus-thread-sort-by-number gnus-thread-sort-by-subject))
(setq gnus-summary-mode-hook
      '(gnus-xmas-switch-horizontal-scrollbar-off gnus-xmas-setup-summary-toolbar gnus-xmas-summary-menu-add mc-install-read-mode))
(setq gnus-summary-exit-hook
      '(gnus-topic-update-topic))
(setq gnus-parse-headers-hook
      '(gnus-set-summary-default-charset gnus-decode-rfc1522))
(setq gnus-exit-group-hook
      '(gnus-uu-delete-work-dir gnus-uu-clean-up))
(setq gnus-group-line-format "%M %m %S%p%P%5y: %(%g%)\n")
(setq gnus-group-mode-hook
      '(gnus-xmas-setup-group-toolbar gnus-xmas-group-menu-add gnus-topic-mode))
(setq gnus-group-catchup-group-hook
      '(gnus-topic-update-topic))
(setq gnus-visible-headers "^From:\\|^Newsgroups:\\|^Subject:\\|^X-\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-")
(setq gnus-show-mime-method
      'gnus-article-preview-mime-message)
(setq gnus-decode-encoded-word-method
      'gnus-article-decode-encoded-word)
(setq gnus-article-mode-hook
      '(gnus-xmas-article-menu-add))
(setq gnus-subscribe-hierarchical-interactive t)
(setq gnus-check-bogus-groups-hook
      '(gnus-topic-clean-alist))
(setq gnus-startup-hook
      '(bbdb-insinuate-gnus tm-gnus/bbdb-setup))
(setq gnus-save-newsrc-hook
      '(bbdb-offer-save))
(setq gnus-asynchronous nil)
(setq gnus-topic-mode-hook
      '(gnus-xmas-topic-menu-add))
(setq nnmail-spool-file
      'procmail)
(setq nnmail-procmail-directory "/users/nozell/mail/spool")
(setq message-user-organization t)
(setq message-forward-start-separator "
--Multipart_Mon_Jun__2_15:00:34_1997-1
Content-Type: message/rfc822
\n")
(setq message-forward-end-separator "")
(setq message-signature-before-forwarded-message nil)
(setq message-included-forward-headers "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-\\|^Message-ID:\\|^References:\\|^Mime-Version:\\|^Content-Type:")
(setq message-post-method
      '(nnspool ""))
(setq message-setup-hook
      '(bbdb-insinuate-sendmail message-maybe-setup-default-charset mime/editor-mode))
(setq message-mode-hook
      '(bbdb-insinuate-message mc-install-write-mode message-xmas-maybe-fontify))
(setq message-header-hook
      '(mime/encode-message-header))
(setq message-header-setup-hook
      '(gnus-inews-insert-archive-gcc gnus-inews-insert-gcc))
(setq message-cite-function
      'sc-cite-original)
(setq message-signature
      'my-signature)



-- 
Marc Nozell <nozell@zko.dec.com>
Technical Expertise Center, Systems Engineering,
Internet Business Group, Digital Equipment Corporation
http://ibgzko.zko.dec.com/nozell/
http://www.rootsweb.com/~nozell/

--Multipart_Mon_Jun__2_15:00:34_1997-1--

------- End of forwarded message -------

