comparison lisp/gnus/gnus-ems.el @ 78546:28c0174177f4

Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 242-244) - Update from CVS 2007-08-10 Katsumi Yamaoka <[e-mail]> * lisp/gnus/nntp.el (nntp-xref-number-is-evil): New server variable. (nntp-find-group-and-number): If it is non-nil, don't trust article numbers in the Xref header. 2007-08-06 Katsumi Yamaoka <[e-mail]> * lisp/gnus/gnus-ems.el (gnus-x-splash): Bind inhibit-read-only to t. 2007-08-04 Reiner Steib <[e-mail]> * lisp/gnus/gnus-art.el (article-hide-headers): Bind inhibit-read-only to t. 2007-08-10 Katsumi Yamaoka <[e-mail]> * man/gnus.texi (NNTP): Mention nntp-xref-number-is-evil. Revision: [e-mail]/emacs--rel--22--patch-92

78545:c8072938bf22

    (error "`gnus-x-splash' requires running on the window system"))
  (switch-to-buffer (gnus-get-buffer-create (if (or (gnus-alive-p)
						    (interactive-p))
						"*gnus-x-splash*"
					      gnus-group-buffer)))
  (let ((inhibit-read-only nil)
	(file (nnheader-find-etc-directory "images/gnus/x-splash" t))
	pixmap fcw fch width height fringes sbars left yoffset top ls)
    (erase-buffer)
    (sit-for 0) ;; Necessary for measuring the window size correctly.
    (when (and file

78546:28c0174177f4

    (error "`gnus-x-splash' requires running on the window system"))
  (switch-to-buffer (gnus-get-buffer-create (if (or (gnus-alive-p)
						    (interactive-p))
						"*gnus-x-splash*"
					      gnus-group-buffer)))
  (let ((inhibit-read-only t)
	(file (nnheader-find-etc-directory "images/gnus/x-splash" t))
	pixmap fcw fch width height fringes sbars left yoffset top ls)
    (erase-buffer)
    (sit-for 0) ;; Necessary for measuring the window size correctly.
    (when (and file