Mercurial > emacs

--- a/lisp/ChangeLog	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/ChangeLog	Fri Nov 16 16:50:35 2007 +0000
@@ -1,3 +1,12 @@
+2007-11-16  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* textmodes/reftex-dcr.el (reftex-start-itimer-once): Add check
+	for XEmacs.
+
+	* calc/calc-menu.el (calc-mode-map): Pacify byte compiler.
+
+	* doc-view.el (doc-view-resolution): Add missing :group.
+
 2007-11-16  Juanma Barranquero  <lekktu@gmail.com>

 	* subr.el (make-variable-frame-local):
--- a/lisp/calc/calc-menu.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/calc/calc-menu.el	Fri Nov 16 16:50:35 2007 +0000
@@ -1159,6 +1159,8 @@
            (Info-goto-node "Help Commands"))])
   "Menu for Calc's help functions.")

+(defvar calc-mode-map)
+
 (easy-menu-define
   calc-menu
   calc-mode-map
--- a/lisp/doc-view.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/doc-view.el	Fri Nov 16 16:50:35 2007 +0000
@@ -163,7 +163,8 @@
 (defcustom doc-view-resolution 100
   "Dots per inch resolution used to render the documents.
 Higher values result in larger images."
-  :type 'number)
+  :type 'number
+  :group 'doc-view)

 (defcustom doc-view-dvipdfm-program (executable-find "dvipdfm")
   "Program to convert DVI files to PDF.
--- a/lisp/gnus/ChangeLog	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/ChangeLog	Fri Nov 16 16:50:35 2007 +0000
@@ -1,3 +1,83 @@
+2007-11-16  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* smime.el (from):
+	* rfc2047.el (message-posting-charset):
+	* qp.el (mm-use-ultra-safe-encoding):
+	* pop3.el (parse-time-months):
+	* nnrss.el (mm-text-html-renderer, mm-text-html-washer-alist):
+	* nnml.el (files):
+	* nnheader.el (gnus-newsgroup-name, nnheader-file-coding-system)
+	(jka-compr-compression-info-list, ange-ftp-path-format)
+	(efs-path-regexp):
+	* nndiary.el (files):
+	* mml2015.el (mc-default-scheme, mc-schemes, pgg-default-user-id)
+	(pgg-errors-buffer, pgg-output-buffer, epg-user-id-alist)
+	(epg-digest-algorithm-alist, inhibit-redisplay)
+	(password-cache-expiry):
+	* mml1991.el (pgg-default-user-id, pgg-errors-buffer)
+	(pgg-output-buffer, password-cache-expiry):
+	* mml.el (mml-dnd-protocol-alist, ange-ftp-name-format)
+	(efs-path-regexp):
+	* mml-smime.el (epg-user-id-alist, epg-digest-algorithm-alist)
+	(inhibit-redisplay):
+	* mm-uu.el (file-name, start-point, end-point, entry)
+	(gnus-newsgroup-name, gnus-newsgroup-charset):
+	* mm-util.el (mm-mime-mule-charset-alist, latin-unity-coding-systems)
+	(latin-unity-ucs-list):
+	* mm-bodies.el (mm-uu-yenc-decode-function, mm-uu-decode-function)
+	(mm-uu-binhex-decode-function):
+	* message.el (gnus-message-group-art, gnus-list-identifiers, )
+	(rmail-enable-mime-composing, gnus-local-organization)
+	(gnus-post-method, gnus-select-method, gnus-active-hashtb)
+	(gnus-read-active-file, facemenu-add-face-function)
+	(facemenu-remove-face-function, gnus-article-decoded-p)
+	(tool-bar-mode):
+	* mail-source.el (display-time-mail-function):
+	* gnus-util.el (nnmail-pathname-coding-system)
+	(nnmail-active-file-coding-system, gnus-emphasize-whitespace-regexp)
+	(gnus-original-article-buffer, gnus-user-agent)
+	(rmail-default-rmail-file, mm-text-coding-system, tool-bar-mode)
+	(xemacs-codename, sxemacs-codename, emacs-program-version):
+	* gnus-sum.el (tool-bar-mode, gnus-tmp-header, number):
+	* gnus-start.el (gnus-agent-covered-methods)
+	(gnus-agent-file-loading-local, gnus-agent-file-loading-cache)
+	(gnus-current-headers, gnus-thread-indent-array, gnus-newsgroup-name)
+	(gnus-newsgroup-headers, gnus-group-list-mode)
+	(gnus-group-mark-positions, gnus-newsgroup-data)
+	(gnus-newsgroup-unreads, nnoo-state-alist)
+	(gnus-current-select-method, mail-sources)
+	(nnmail-scan-directory-mail-source-once, nnmail-split-history)
+	(nnmail-spool-file, gnus-cache-active-hashtb):
+	* gnus-mh.el (mh-lib-progs):
+	* gnus-ems.el (gnus-tmp-unread, gnus-tmp-replied)
+	(gnus-tmp-score-char, gnus-tmp-indentation, gnus-tmp-opening-bracket)
+	(gnus-tmp-lines, gnus-tmp-name, gnus-tmp-closing-bracket)
+	(gnus-tmp-subject-or-nil, gnus-check-before-posting, gnus-mouse-face)
+	(gnus-group-buffer):
+	* gnus-cite.el (font-lock-defaults-computed, font-lock-keywords)
+	(font-lock-set-defaults):
+	* gnus-art.el (tool-bar-map, w3m-minor-mode-map)
+	(gnus-face-properties-alist, charset, gnus-summary-article-menu)
+	(gnus-summary-post-menu, total-parts, type, condition, length):
+	* gnus-agent.el (gnus-agent-read-agentview):
+	* flow-fill.el (show-trailing-whitespace):
+	* gnus-group.el (tool-bar-mode, nnrss-group-alist): Remove unnecessary
+	eval-and-compile wrappers for byte compiler pacifiers.
+
+	* mm-view.el (mm-inline-image-xemacs): Only do something for XEmacs.
+	(mm-display-inline-fontify): Check for featurep 'xemacs not
+	extent-list.
+
+	* mm-decode.el (mm-display-external): Check for featurep 'xemacs not
+	itimer-list.
+	(mm-create-image-xemacs): Only do something for XEmacs.
+	(mm-image-fit-p): Check for featurep 'xemacs not glyph-width.
+
+	* mm-util.el (mm-find-buffer-file-coding-system): Add check for XEmacs.
+
+	* gnus-registry.el (gnus-adaptive-word-syntax-table):
+	* gnus-fun.el (gnus-face-properties-alist): Pacify byte compiler.
+
 2007-11-15  Juanma Barranquero  <lekktu@gmail.com>

 	* nnimap.el (nnimap-split-download-body):
--- a/lisp/gnus/flow-fill.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/flow-fill.el	Fri Nov 16 16:50:35 2007 +0000
@@ -154,8 +154,7 @@

 ;; Test vectors.

-(eval-when-compile
-  (defvar show-trailing-whitespace))
+(defvar show-trailing-whitespace)

 (defvar fill-flowed-encode-tests
   `(
--- a/lisp/gnus/gnus-agent.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/gnus-agent.el	Fri Nov 16 16:50:35 2007 +0000
@@ -2104,8 +2104,7 @@

 ;; Keeps the compiler from warning about the free variable in
 ;; gnus-agent-read-agentview.
-(eval-when-compile
-  (defvar gnus-agent-read-agentview))
+(defvar gnus-agent-read-agentview)

 (defun gnus-agent-load-alist (group)
   "Load the article-state alist for GROUP."
--- a/lisp/gnus/gnus-art.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/gnus-art.el	Fri Nov 16 16:50:35 2007 +0000
@@ -28,9 +28,9 @@
 ;;; Code:

 (eval-when-compile
-  (require 'cl)
-  (defvar tool-bar-map)
-  (defvar w3m-minor-mode-map))
+  (require 'cl))
+(defvar tool-bar-map)
+(defvar w3m-minor-mode-map)

 (require 'gnus)
 ;; Avoid the "Recursive load suspected" error in Emacs 21.1.
@@ -2332,8 +2332,7 @@
 	 (forward-line 1)
 	 (point))))))

-(eval-when-compile
-  (defvar gnus-face-properties-alist))
+(defvar gnus-face-properties-alist)

 (defun article-display-face ()
   "Display any Face headers in the header."
@@ -2726,7 +2725,7 @@
 	   ;; Put the mark meaning this part was rendered by emacs-w3m.
 	   'mm-inline-text-html-with-w3m t))))

-(eval-when-compile (defvar charset)) ;; Bound by `article-wash-html'.
+(defvar charset) ;; Bound by `article-wash-html'.

 (defun gnus-article-wash-html-with-w3m-standalone ()
   "Wash the current buffer with w3m."
@@ -3529,9 +3528,8 @@
 				 gnus-newsgroup-name 'highlight-words t)))
 	     gnus-emphasis-alist)))))

-(eval-when-compile
-  (defvar gnus-summary-article-menu)
-  (defvar gnus-summary-post-menu))
+(defvar gnus-summary-article-menu)
+(defvar gnus-summary-post-menu)

 ;;; Saving functions.

@@ -7903,12 +7901,11 @@
 	  (funcall (cadr elem)))))))

 ;; Dynamic variables.
-(eval-when-compile
-  (defvar part-number)
-  (defvar total-parts)
-  (defvar type)
-  (defvar condition)
-  (defvar length))
+(defvar part-number)
+(defvar total-parts)
+(defvar type)
+(defvar condition)
+(defvar length)

 (defun gnus-treat-predicate (val)
   (cond
--- a/lisp/gnus/gnus-cite.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/gnus-cite.el	Fri Nov 16 16:50:35 2007 +0000
@@ -1170,10 +1170,9 @@
 	   (setq count (1+ count)))))) ;;
   "Keywords for highlighting different levels of message citations.")

-(eval-when-compile
-  (defvar font-lock-defaults-computed)
-  (defvar font-lock-keywords)
-  (defvar font-lock-set-defaults))
+(defvar font-lock-defaults-computed)
+(defvar font-lock-keywords)
+(defvar font-lock-set-defaults)

 (eval-and-compile
   (unless (featurep 'xemacs)
--- a/lisp/gnus/gnus-cus.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/gnus-cus.el	Fri Nov 16 16:50:35 2007 +0000
@@ -949,20 +949,18 @@
     (gnus-score-set 'touched '(t) alist))
   (bury-buffer))

-(eval-when-compile
-  (defvar category-fields nil)
-  (defvar gnus-agent-cat-name)
-  (defvar gnus-agent-cat-score-file)
-  (defvar gnus-agent-cat-length-when-short)
-  (defvar gnus-agent-cat-length-when-long)
-  (defvar gnus-agent-cat-low-score)
-  (defvar gnus-agent-cat-high-score)
-  (defvar gnus-agent-cat-enable-expiration)
-  (defvar gnus-agent-cat-days-until-old)
-  (defvar gnus-agent-cat-predicate)
-  (defvar gnus-agent-cat-groups)
-  (defvar gnus-agent-cat-enable-undownloaded-faces)
-)
+(defvar category-fields nil)
+(defvar gnus-agent-cat-name)
+(defvar gnus-agent-cat-score-file)
+(defvar gnus-agent-cat-length-when-short)
+(defvar gnus-agent-cat-length-when-long)
+(defvar gnus-agent-cat-low-score)
+(defvar gnus-agent-cat-high-score)
+(defvar gnus-agent-cat-enable-expiration)
+(defvar gnus-agent-cat-days-until-old)
+(defvar gnus-agent-cat-predicate)
+(defvar gnus-agent-cat-groups)
+(defvar gnus-agent-cat-enable-undownloaded-faces)

 (defun gnus-trim-whitespace (s)
   (when (string-match "\\`[ \n\t]+" s)
--- a/lisp/gnus/gnus-ems.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/gnus-ems.el	Fri Nov 16 16:50:35 2007 +0000
@@ -74,19 +74,18 @@
     (defvar gnus-mouse-face-prop 'mouse-face
       "Property used for highlighting mouse regions.")))

-(eval-when-compile
-  (defvar gnus-tmp-unread)
-  (defvar gnus-tmp-replied)
-  (defvar gnus-tmp-score-char)
-  (defvar gnus-tmp-indentation)
-  (defvar gnus-tmp-opening-bracket)
-  (defvar gnus-tmp-lines)
-  (defvar gnus-tmp-name)
-  (defvar gnus-tmp-closing-bracket)
-  (defvar gnus-tmp-subject-or-nil)
-  (defvar gnus-check-before-posting)
-  (defvar gnus-mouse-face)
-  (defvar gnus-group-buffer))
+(defvar gnus-tmp-unread)
+(defvar gnus-tmp-replied)
+(defvar gnus-tmp-score-char)
+(defvar gnus-tmp-indentation)
+(defvar gnus-tmp-opening-bracket)
+(defvar gnus-tmp-lines)
+(defvar gnus-tmp-name)
+(defvar gnus-tmp-closing-bracket)
+(defvar gnus-tmp-subject-or-nil)
+(defvar gnus-check-before-posting)
+(defvar gnus-mouse-face)
+(defvar gnus-group-buffer)

 (defun gnus-ems-redefine ()
   (cond
--- a/lisp/gnus/gnus-fun.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/gnus-fun.el	Fri Nov 16 16:50:35 2007 +0000
@@ -34,6 +34,8 @@
 (require 'gnus-util)
 (require 'gnus)

+(defvar gnus-face-properties-alist)
+
 (defcustom gnus-x-face-directory (expand-file-name "x-faces" gnus-directory)
   "*Directory where X-Face PBM files are stored."
   :version "22.1"
--- a/lisp/gnus/gnus-group.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/gnus-group.el	Fri Nov 16 16:50:35 2007 +0000
@@ -28,8 +28,8 @@
 ;;; Code:

 (eval-when-compile
-  (require 'cl)
-  (defvar tool-bar-mode))
+  (require 'cl))
+(defvar tool-bar-mode)

 (require 'gnus)
 (require 'gnus-start)
@@ -2875,8 +2875,8 @@
        (cons (current-buffer)
 	     (if (eq major-mode 'gnus-summary-mode) 'summary 'group))))))

+(defvar nnrss-group-alist)
 (eval-when-compile
-  (defvar nnrss-group-alist)
   (defun nnrss-discover-feed (arg))
   (defun nnrss-save-server-data (arg)))
 (defun gnus-group-make-rss-group (&optional url)
--- a/lisp/gnus/gnus-mh.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/gnus-mh.el	Fri Nov 16 16:50:35 2007 +0000
@@ -41,8 +41,7 @@
 (require 'gnus-msg)
 (require 'gnus-sum)

-(eval-when-compile
-  (defvar mh-lib-progs))
+(defvar mh-lib-progs)

 (defun gnus-summary-save-article-folder (&optional arg)
   "Append the current article to an mh folder.
--- a/lisp/gnus/gnus-registry.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/gnus-registry.el	Fri Nov 16 16:50:35 2007 +0000
@@ -63,6 +63,8 @@
 (require 'gnus-util)
 (require 'nnmail)

+(defvar gnus-adaptive-word-syntax-table)
+
 (defvar gnus-registry-dirty t
  "Boolean set to t when the registry is modified")
--- a/lisp/gnus/gnus-start.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/gnus-start.el	Fri Nov 16 16:50:35 2007 +0000
@@ -39,11 +39,11 @@
 (autoload 'gnus-agent-possibly-alter-active "gnus-agent")

 (eval-when-compile
-  (require 'cl)
+  (require 'cl))

-  (defvar gnus-agent-covered-methods nil)
-  (defvar gnus-agent-file-loading-local nil)
-  (defvar gnus-agent-file-loading-cache nil))
+(defvar gnus-agent-covered-methods)
+(defvar gnus-agent-file-loading-local)
+(defvar gnus-agent-file-loading-cache)

 (defcustom gnus-startup-file (nnheader-concat gnus-home-directory ".newsrc")
   "Your `.newsrc' file.
@@ -650,21 +650,20 @@
 ;;; General various misc type functions.

 ;; Silence byte-compiler.
-(eval-when-compile
-  (defvar gnus-current-headers)
-  (defvar gnus-thread-indent-array)
-  (defvar gnus-newsgroup-name)
-  (defvar gnus-newsgroup-headers)
-  (defvar gnus-group-list-mode)
-  (defvar gnus-group-mark-positions)
-  (defvar gnus-newsgroup-data)
-  (defvar gnus-newsgroup-unreads)
-  (defvar nnoo-state-alist)
-  (defvar gnus-current-select-method)
-  (defvar mail-sources)
-  (defvar nnmail-scan-directory-mail-source-once)
-  (defvar nnmail-split-history)
-  (defvar nnmail-spool-file))
+(defvar gnus-current-headers)
+(defvar gnus-thread-indent-array)
+(defvar gnus-newsgroup-name)
+(defvar gnus-newsgroup-headers)
+(defvar gnus-group-list-mode)
+(defvar gnus-group-mark-positions)
+(defvar gnus-newsgroup-data)
+(defvar gnus-newsgroup-unreads)
+(defvar nnoo-state-alist)
+(defvar gnus-current-select-method)
+(defvar mail-sources)
+(defvar nnmail-scan-directory-mail-source-once)
+(defvar nnmail-split-history)
+(defvar nnmail-spool-file)

 (defun gnus-close-all-servers ()
   "Close all servers."
@@ -1512,8 +1511,8 @@
       (setq killed (cdr killed)))))

 ;; We want to inline a function from gnus-cache, so we cheat here:
+(defvar gnus-cache-active-hashtb)
 (eval-when-compile
-  (defvar gnus-cache-active-hashtb)
   (defun gnus-cache-possibly-alter-active (group active)
     "Alter the ACTIVE info for GROUP to reflect the articles in the cache."
     (when gnus-cache-active-hashtb
--- a/lisp/gnus/gnus-sum.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/gnus-sum.el	Fri Nov 16 16:50:35 2007 +0000
@@ -28,8 +28,10 @@
 ;;; Code:

 (eval-when-compile
-  (require 'cl)
-  (defvar tool-bar-mode))
+  (require 'cl))
+
+(defvar tool-bar-mode)
+(defvar gnus-tmp-header)

 (require 'gnus)
 (require 'gnus-group)
@@ -4954,7 +4956,6 @@
 (defvar gnus-tmp-root-expunged nil)
 (defvar gnus-tmp-dummy-line nil)

-(eval-when-compile (defvar gnus-tmp-header))
 (defun gnus-extra-header (type &optional header)
   "Return the extra header of TYPE."
   (or (cdr (assq type (mail-header-extra (or header gnus-tmp-header))))
@@ -5592,8 +5593,7 @@
     (gnus-get-predicate display)))

 ;; Uses the dynamically bound `number' variable.
-(eval-when-compile
-  (defvar number))
+(defvar number)
 (defun gnus-article-marked-p (type &optional article)
   (let ((article (or article number)))
     (cond
--- a/lisp/gnus/gnus-util.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/gnus-util.el	Fri Nov 16 16:50:35 2007 +0000
@@ -36,16 +36,16 @@
 ;;; Code:

 (eval-when-compile
-  (require 'cl)
-  ;; Fixme: this should be a gnus variable, not nnmail-.
-  (defvar nnmail-pathname-coding-system)
-  (defvar nnmail-active-file-coding-system)
+  (require 'cl))
+;; Fixme: this should be a gnus variable, not nnmail-.
+(defvar nnmail-pathname-coding-system)
+(defvar nnmail-active-file-coding-system)

-  ;; Inappropriate references to other parts of Gnus.
-  (defvar gnus-emphasize-whitespace-regexp)
-  (defvar gnus-original-article-buffer)
-  (defvar gnus-user-agent)
-  )
+;; Inappropriate references to other parts of Gnus.
+(defvar gnus-emphasize-whitespace-regexp)
+(defvar gnus-original-article-buffer)
+(defvar gnus-user-agent)
+
 (require 'time-date)
 (require 'netrc)

@@ -982,9 +982,10 @@
      ;; version fails halfway, however it provides the rmail-select-summary
      ;; macro which uses the following functions:
      (autoload 'rmail-summary-displayed "rmail")
-     (autoload 'rmail-maybe-display-summary "rmail")))
-  (defvar rmail-default-rmail-file)
-  (defvar mm-text-coding-system))
+     (autoload 'rmail-maybe-display-summary "rmail"))))
+
+(defvar rmail-default-rmail-file)
+(defvar mm-text-coding-system)

 (defun gnus-output-to-rmail (filename &optional ask)
   "Append the current article to an Rmail file named FILENAME."
@@ -1551,8 +1552,7 @@
 				 display))
 	      display)))))

-(eval-when-compile
-  (defvar tool-bar-mode))
+(defvar tool-bar-mode)

 (defun gnus-tool-bar-update (&rest ignore)
   "Update the tool bar."
@@ -1621,10 +1621,9 @@
 	  (push (pop list1) res)))
       (nconc (nreverse res) list1 list2))))

-(eval-when-compile
-  (defvar xemacs-codename)
-  (defvar sxemacs-codename)
-  (defvar emacs-program-version))
+(defvar xemacs-codename)
+(defvar sxemacs-codename)
+(defvar emacs-program-version)

 (defun gnus-emacs-version ()
   "Stringified Emacs version."
--- a/lisp/gnus/mail-source.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/mail-source.el	Fri Nov 16 16:50:35 2007 +0000
@@ -29,8 +29,7 @@

 (eval-when-compile
   (require 'cl)
-  (require 'imap)
-  (eval-when-compile (defvar display-time-mail-function)))
+  (require 'imap))
 (eval-and-compile
   (autoload 'pop3-movemail "pop3")
   (autoload 'pop3-get-message-count "pop3")
@@ -39,6 +38,9 @@
 (require 'mm-util)
 (require 'message) ;; for `message-directory'

+(defvar display-time-mail-function)
+
+
 (defgroup mail-source nil
   "The mail-fetching library."
   :version "21.1"
--- a/lisp/gnus/message.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/message.el	Fri Nov 16 16:50:35 2007 +0000
@@ -32,9 +32,8 @@
 ;;; Code:

 (eval-when-compile
-  (require 'cl)
-  (defvar gnus-message-group-art)
-  (defvar gnus-list-identifiers)) ; gnus-sum is required where necessary
+  (require 'cl))
+
 (require 'hashcash)
 (require 'canlock)
 (require 'mailheader)
@@ -51,6 +50,9 @@
 (require 'rfc822)
 (require 'ecomplete)

+(defvar gnus-message-group-art)
+(defvar gnus-list-identifiers) ; gnus-sum is required where necessary
+(defvar rmail-enable-mime-composing)

 (defgroup message '((user-mail-address custom-variable)
 		    (user-full-name custom-variable))
@@ -474,8 +476,7 @@
   :group 'message-buffers
   :type 'boolean)

-(eval-when-compile
-  (defvar gnus-local-organization))
+(defvar gnus-local-organization)
 (defcustom message-user-organization
   (or (and (boundp 'gnus-local-organization)
 	   (stringp gnus-local-organization)
@@ -816,9 +817,8 @@
   :type '(choice (function)
 		 (repeat string)))

-(eval-when-compile
-  (defvar gnus-post-method)
-  (defvar gnus-select-method))
+(defvar gnus-post-method)
+(defvar gnus-select-method)
 (defcustom message-post-method
   (cond ((and (boundp 'gnus-post-method)
 	      (listp gnus-post-method)
@@ -1640,9 +1640,8 @@
 (defvar message-inserted-headers nil)

 ;; Byte-compiler warning
-(eval-when-compile
-  (defvar gnus-active-hashtb)
-  (defvar gnus-read-active-file))
+(defvar gnus-active-hashtb)
+(defvar gnus-read-active-file)

 ;;; Regexp matching the delimiter of messages in UNIX mail format
 ;;; (UNIX From lines), minus the initial ^.  It should be a copy
@@ -2662,9 +2661,8 @@

 (defvar message-tool-bar-map nil)

-(eval-when-compile
-  (defvar facemenu-add-face-function)
-  (defvar facemenu-remove-face-function))
+(defvar facemenu-add-face-function)
+(defvar facemenu-remove-face-function)

 ;;; Forbidden properties
 ;;
@@ -3620,8 +3618,6 @@
 	  (push (buffer-name buffer) buffers))))
     (nreverse buffers)))

-(eval-when-compile (defvar mail-citation-hook))	; Compiler directive
-
 (defun message-cite-original-1 (strip-signature)
   "Cite an original message.
 If STRIP-SIGNATURE is non-nil, strips off the signature from the
@@ -6873,8 +6869,7 @@
 	    (setq subject (funcall func subject))))
 	subject))))

-(eval-when-compile
-  (defvar gnus-article-decoded-p))
+(defvar gnus-article-decoded-p)


 ;;;###autoload
@@ -7088,8 +7083,6 @@
 	(rmail-msg-restore-non-pruned-header)))
   (message-forward-make-body forward-buffer))

-(eval-when-compile (defvar rmail-enable-mime-composing))
-
 ;; Fixme: Should have defcustom.
 ;;;###autoload
 (defun message-insinuate-rmail ()
@@ -7311,8 +7304,7 @@
     (mapcar #'delete-overlay (overlays-in (point-min) (point-max)))))

 ;; Support for toolbar
-(eval-when-compile
-  (defvar tool-bar-mode))
+(defvar tool-bar-mode)

 ;; Note: The :set function in the `message-tool-bar*' variables will only
 ;; affect _new_ message buffers.  We might add a function that walks thru all
--- a/lisp/gnus/mm-bodies.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/mm-bodies.el	Fri Nov 16 16:50:35 2007 +0000
@@ -26,14 +26,14 @@

 ;;; Code:

-(eval-when-compile
-  (defvar mm-uu-decode-function)
-  (defvar mm-uu-binhex-decode-function))
-
 (require 'mm-util)
 (require 'rfc2047)
 (require 'mm-encode)

+(defvar mm-uu-yenc-decode-function)
+(defvar mm-uu-decode-function)
+(defvar mm-uu-binhex-decode-function)
+
 ;; 8bit treatment gets any char except: 0x32 - 0x7f, LF, TAB, BEL,
 ;; BS, vertical TAB, form feed, and ^_
 ;;
@@ -171,8 +171,6 @@
 ;;; Functions for decoding
 ;;;

-(eval-when-compile (defvar mm-uu-yenc-decode-function))
-
 (defun mm-decode-content-transfer-encoding (encoding &optional type)
   "Decodes buffer encoded with ENCODING, returning success status.
 If TYPE is `text/plain' CRLF->LF translation may occur."
--- a/lisp/gnus/mm-decode.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/mm-decode.el	Fri Nov 16 16:50:35 2007 +0000
@@ -895,7 +895,7 @@
 			  ;; a vector in Emacs but is a list in XEmacs)
 			  ;; requires that it is lexically scoped.
 			  (timer (run-at-time 2.0 nil 'ignore)))
-		       (if (boundp 'itimer-list)
+		       (if (featurep 'xemacs)
 			   (lambda (process state)
 			     (when (eq 'exit (process-status process))
 			       (if (memq timer itimer-list)
@@ -1364,34 +1364,35 @@
 	    (mm-handle-set-cache handle spec))))))

 (defun mm-create-image-xemacs (type)
-  (cond
-   ((equal type "xbm")
-    ;; xbm images require special handling, since
-    ;; the only way to create glyphs from these
-    ;; (without a ton of work) is to write them
-    ;; out to a file, and then create a file
-    ;; specifier.
-    (let ((file (mm-make-temp-file
-		 (expand-file-name "emm" mm-tmp-directory)
-		 nil ".xbm")))
-      (unwind-protect
-	  (progn
-	    (write-region (point-min) (point-max) file)
-	    (make-glyph (list (cons 'x file))))
-	(ignore-errors
-	  (delete-file file)))))
-   (t
-    (make-glyph
-     (vector
-      (or (mm-image-type-from-buffer)
-	  (intern type))
-      :data (buffer-string))))))
+  (when (featurep 'xemacs)
+    (cond
+     ((equal type "xbm")
+      ;; xbm images require special handling, since
+      ;; the only way to create glyphs from these
+      ;; (without a ton of work) is to write them
+      ;; out to a file, and then create a file
+      ;; specifier.
+      (let ((file (mm-make-temp-file
+		   (expand-file-name "emm" mm-tmp-directory)
+		   nil ".xbm")))
+	(unwind-protect
+	    (progn
+	      (write-region (point-min) (point-max) file)
+	      (make-glyph (list (cons 'x file))))
+	  (ignore-errors
+	    (delete-file file)))))
+     (t
+      (make-glyph
+       (vector
+	(or (mm-image-type-from-buffer)
+	    (intern type))
+	:data (buffer-string)))))))

 (defun mm-image-fit-p (handle)
   "Say whether the image in HANDLE will fit the current window."
   (let ((image (mm-get-image handle)))
     (or (not image)
-	(if (fboundp 'glyph-width)
+	(if (featurep 'xemacs)
 	    ;; XEmacs' glyphs can actually tell us about their width, so
 	    ;; lets be nice and smart about them.
 	    (or mm-inline-large-images
--- a/lisp/gnus/mm-util.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/mm-util.el	Fri Nov 16 16:50:35 2007 +0000
@@ -36,6 +36,8 @@
 	(require 'timer))
     (require 'timer)))

+(defvar mm-mime-mule-charset-alist )
+
 (eval-and-compile
   (mapc
    (lambda (elem)
@@ -884,9 +886,10 @@
   (autoload 'latin-unity-massage-name "latin-unity")
   (autoload 'latin-unity-maybe-remap "latin-unity")
   (autoload 'latin-unity-representations-feasible-region "latin-unity")
-  (autoload 'latin-unity-representations-present-region "latin-unity")
-  (defvar latin-unity-coding-systems)
-  (defvar latin-unity-ucs-list))
+  (autoload 'latin-unity-representations-present-region "latin-unity"))
+
+(defvar latin-unity-coding-systems)
+(defvar latin-unity-ucs-list)

 (defun mm-xemacs-find-mime-charset-1 (begin end)
   "Determine which MIME charset to use to send region as message.
@@ -1440,7 +1443,7 @@
 		    (funcall (symbol-value 'set-auto-coding-function)
 			     nil (- (point-max) (point-min)))
 		  (error nil)))))
-	   ((featurep 'file-coding) ;; XEmacs
+	   ((and (featurep 'xemacs) (featurep 'file-coding)) ;; XEmacs
 	    (let ((case-fold-search t)
 		  (end (point-at-eol))
 		  codesys start)
--- a/lisp/gnus/mm-uu.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/mm-uu.el	Fri Nov 16 16:50:35 2007 +0000
@@ -305,11 +305,10 @@

 (mm-uu-configure)

-(eval-when-compile
-  (defvar file-name)
-  (defvar start-point)
-  (defvar end-point)
-  (defvar entry))
+(defvar file-name)
+(defvar start-point)
+(defvar end-point)
+(defvar entry)

 (defun mm-uu-uu-filename ()
   (if (looking-at ".+")
@@ -375,8 +374,7 @@
 		  (list mm-dissect-disposition
 			(cons 'filename file-name))))

-(eval-when-compile
-  (defvar gnus-newsgroup-name))
+(defvar gnus-newsgroup-name)

 (defun mm-uu-emacs-sources-test ()
   (setq file-name (match-string 1))
@@ -465,8 +463,7 @@
 	   (y-or-n-p "Verify pgp signed part? ")
 	 (message ""))))))

-(eval-when-compile
-  (defvar gnus-newsgroup-charset))
+(defvar gnus-newsgroup-charset)

 (defun mm-uu-pgp-signed-extract-1 (handles ctl)
   (let ((buf (mm-uu-copy-to-buffer (point-min) (point-max))))
--- a/lisp/gnus/mm-view.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/mm-view.el	Fri Nov 16 16:50:35 2007 +0000
@@ -97,19 +97,20 @@
 	  (delete-region b (+ b 2)))))))

 (defun mm-inline-image-xemacs (handle)
-  (insert "\n\n")
-  (forward-char -2)
-  (let ((annot (make-annotation (mm-get-image handle) nil 'text))
-	buffer-read-only)
-    (mm-handle-set-undisplayer
-     handle
-     `(lambda ()
-	(let ((b ,(point-marker))
-	      buffer-read-only)
-	  (delete-annotation ,annot)
-	  (delete-region (- b 2) b))))
-    (set-extent-property annot 'mm t)
-    (set-extent-property annot 'duplicable t)))
+  (when (featurep 'xemacs)
+    (insert "\n\n")
+    (forward-char -2)
+    (let ((annot (make-annotation (mm-get-image handle) nil 'text))
+	  buffer-read-only)
+      (mm-handle-set-undisplayer
+       handle
+       `(lambda ()
+	  (let ((b ,(point-marker))
+		buffer-read-only)
+	    (delete-annotation ,annot)
+	    (delete-region (- b 2) b))))
+      (set-extent-property annot 'mm t)
+      (set-extent-property annot 'duplicable t))))

 (eval-and-compile
   (if (featurep 'xemacs)
@@ -568,7 +569,7 @@
       ;; By default, XEmacs font-lock uses non-duplicable text
       ;; properties.  This code forces all the text properties
       ;; to be copied along with the text.
-      (when (fboundp 'extent-list)
+      (when (featurep 'xemacs)
 	(map-extents (lambda (ext ignored)
 		       (set-extent-property ext 'duplicable t)
 		       nil)
--- a/lisp/gnus/mml-smime.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/mml-smime.el	Fri Nov 16 16:50:35 2007 +0000
@@ -298,13 +298,13 @@
 (defun mml-smime-openssl-verify-test (handle ctl)
   smime-openssl-program)

-(eval-and-compile
-  (autoload 'epg-make-context "epg"))
+(defvar epg-user-id-alist)
+(defvar epg-digest-algorithm-alist)
+(defvar inhibit-redisplay)
+(defvar password-cache-expiry)

 (eval-when-compile
-  (defvar epg-user-id-alist)
-  (defvar epg-digest-algorithm-alist)
-  (defvar inhibit-redisplay)
+  (autoload 'epg-make-context "epg")
   (autoload 'epg-context-set-armor "epg")
   (autoload 'epg-context-set-signers "epg")
   (autoload 'epg-context-result-for "epg")
@@ -319,10 +319,7 @@
   (autoload 'epg-context-set-passphrase-callback "epg")
   (autoload 'epg-configuration "epg-config")
   (autoload 'epg-expand-group "epg-config")
-  (autoload 'epa-select-keys "epa"))
-
-(eval-when-compile
-  (defvar password-cache-expiry)
+  (autoload 'epa-select-keys "epa")
   (autoload 'password-read "password")
   (autoload 'password-cache-add "password")
   (autoload 'password-cache-remove "password"))
--- a/lisp/gnus/mml.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/mml.el	Fri Nov 16 16:50:35 2007 +0000
@@ -53,6 +53,7 @@
 (defvar message-required-mail-headers)
 (defvar message-required-news-headers)
 (defvar dnd-protocol-alist)
+(defvar mml-dnd-protocol-alist)

 (defcustom mml-content-type-parameters
   '(name access-type expiration size permission format)
@@ -807,9 +808,9 @@
 	 (mail-header-encode-parameter
 	  (symbol-name type) value))))))

-(eval-when-compile
-  (defvar ange-ftp-name-format)
-  (defvar efs-path-regexp))
+(defvar ange-ftp-name-format)
+(defvar efs-path-regexp)
+
 (defun mml-parse-file-name (path)
   (if (if (boundp 'efs-path-regexp)
 	  (string-match efs-path-regexp path)
--- a/lisp/gnus/mml1991.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/mml1991.el	Fri Nov 16 16:50:35 2007 +0000
@@ -244,10 +244,9 @@

 ;; pgg wrapper

-(eval-when-compile
-  (defvar pgg-default-user-id)
-  (defvar pgg-errors-buffer)
-  (defvar pgg-output-buffer))
+(defvar pgg-default-user-id)
+(defvar pgg-errors-buffer)
+(defvar pgg-output-buffer)

 (defun mml1991-pgg-sign (cont)
   (let ((pgg-text-mode t)
@@ -313,11 +312,11 @@

 ;; epg wrapper

-(eval-and-compile
-  (autoload 'epg-make-context "epg"))
+(defvar epg-user-id-alist)
+(defvar password-cache-expiry)

-(eval-when-compile
-  (defvar epg-user-id-alist)
+(eval-and-compile
+  (autoload 'epg-make-context "epg")
   (autoload 'epg-passphrase-callback-function "epg")
   (autoload 'epa-select-keys "epa")
   (autoload 'epg-list-keys "epg")
@@ -328,10 +327,7 @@
   (autoload 'epg-sign-string "epg")
   (autoload 'epg-encrypt-string "epg")
   (autoload 'epg-configuration "epg-config")
-  (autoload 'epg-expand-group "epg-config"))
-
-(eval-when-compile
-  (defvar password-cache-expiry)
+  (autoload 'epg-expand-group "epg-config")
   (autoload 'password-read "password")
   (autoload 'password-cache-add "password")
   (autoload 'password-cache-remove "password"))
--- a/lisp/gnus/mml2015.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/mml2015.el	Fri Nov 16 16:50:35 2007 +0000
@@ -173,9 +173,8 @@
   (autoload 'mc-cleanup-recipient-headers "mc-toplev")
   (autoload 'mc-sign-generic "mc-toplev"))

-(eval-when-compile
-  (defvar mc-default-scheme)
-  (defvar mc-schemes))
+(defvar mc-default-scheme)
+(defvar mc-schemes)

 (defvar mml2015-decrypt-function 'mailcrypt-decrypt)
 (defvar mml2015-verify-function 'mailcrypt-verify)
@@ -707,10 +706,9 @@

 ;;; pgg wrapper

-(eval-when-compile
-  (defvar pgg-default-user-id)
-  (defvar pgg-errors-buffer)
-  (defvar pgg-output-buffer))
+(defvar pgg-default-user-id)
+(defvar pgg-errors-buffer)
+(defvar pgg-output-buffer)

 (eval-and-compile
   (autoload 'pgg-decrypt-region "pgg")
@@ -945,13 +943,12 @@

 ;;; epg wrapper

-(eval-and-compile
-  (autoload 'epg-make-context "epg"))
+(defvar epg-user-id-alist)
+(defvar epg-digest-algorithm-alist)
+(defvar inhibit-redisplay)

-(eval-when-compile
-  (defvar epg-user-id-alist)
-  (defvar epg-digest-algorithm-alist)
-  (defvar inhibit-redisplay)
+(eval-and-compile
+  (autoload 'epg-make-context "epg")
   (autoload 'epg-context-set-armor "epg")
   (autoload 'epg-context-set-textmode "epg")
   (autoload 'epg-context-set-signers "epg")
@@ -972,8 +969,9 @@
   (autoload 'epg-expand-group "epg-config")
   (autoload 'epa-select-keys "epa"))

+(defvar password-cache-expiry)
+
 (eval-when-compile
-  (defvar password-cache-expiry)
   (autoload 'password-read "password")
   (autoload 'password-cache-add "password")
   (autoload 'password-cache-remove "password"))
--- a/lisp/gnus/nndiary.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/nndiary.el	Fri Nov 16 16:50:35 2007 +0000
@@ -1085,7 +1085,7 @@
 	(unless no-active
 	  (nnmail-save-active nndiary-group-alist nndiary-active-file))))))

-(eval-when-compile (defvar files))
+(defvar files)
 (defun nndiary-generate-active-info (dir)
   ;; Update the active info for this group.
   (let* ((group (nnheader-file-to-group
--- a/lisp/gnus/nnheader.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/nnheader.el	Fri Nov 16 16:50:35 2007 +0000
@@ -32,6 +32,9 @@
 (eval-when-compile (require 'cl))

 (defvar nnmail-extra-headers)
+(defvar gnus-newsgroup-name)
+(defvar nnheader-file-coding-system)
+(defvar jka-compr-compression-info-list)

 ;; Requiring `gnus-util' at compile time creates a circular
 ;; dependency between nnheader.el and gnus-util.el.
@@ -696,7 +699,6 @@
     (erase-buffer))
   (current-buffer))

-(eval-when-compile (defvar jka-compr-compression-info-list))
 (defvar nnheader-numerical-files
   (if (boundp 'jka-compr-compression-info-list)
       (concat "\\([0-9]+\\)\\("
@@ -939,9 +941,8 @@
 	(car results)
       (car (sort results 'file-newer-than-file-p)))))

-(eval-when-compile
-  (defvar ange-ftp-path-format)
-  (defvar efs-path-regexp))
+(defvar ange-ftp-path-format)
+(defvar efs-path-regexp)
 (defun nnheader-re-read-dir (path)
   "Re-read directory PATH if PATH is on a remote system."
   (if (and (fboundp 'efs-re-read-dir) (boundp 'efs-path-regexp))
--- a/lisp/gnus/nnml.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/nnml.el	Fri Nov 16 16:50:35 2007 +0000
@@ -885,7 +885,7 @@
 	  (unless no-active
 	    (nnmail-save-active nnml-group-alist nnml-active-file)))))))

-(eval-when-compile (defvar files))
+(defvar files)
 (defun nnml-generate-active-info (dir)
   ;; Update the active info for this group.
   (let ((group (directory-file-name dir))
--- a/lisp/gnus/nnrss.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/nnrss.el	Fri Nov 16 16:50:35 2007 +0000
@@ -195,9 +195,8 @@
 (deffoo nnrss-close-group (group &optional server)
   t)

-(eval-when-compile
-  (defvar mm-text-html-renderer)
-  (defvar mm-text-html-washer-alist))
+(defvar mm-text-html-renderer)
+(defvar mm-text-html-washer-alist)

 (deffoo nnrss-request-article (article &optional group server buffer)
   (setq group (nnrss-decode-group-name group))
--- a/lisp/gnus/pop3.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/pop3.el	Fri Nov 16 16:50:35 2007 +0000
@@ -36,6 +36,7 @@
 ;;; Code:

 (require 'mail-utils)
+(defvar parse-time-months)

 (defgroup pop3 nil
   "Post Office Protocol."
@@ -327,8 +328,6 @@
       (forward-char)))
   (set-marker end nil))

-(eval-when-compile (defvar parse-time-months))
-
 ;; Copied from message-make-date.
 (defun pop3-make-date (&optional now)
   "Make a valid date header.
--- a/lisp/gnus/qp.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/qp.el	Fri Nov 16 16:50:35 2007 +0000
@@ -31,7 +31,7 @@
 ;;; Code:

 (require 'mm-util)
-(eval-when-compile (defvar mm-use-ultra-safe-encoding))
+(defvar mm-use-ultra-safe-encoding)

 ;;;###autoload
 (defun quoted-printable-decode-region (from to &optional coding-system)
--- a/lisp/gnus/rfc2047.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/rfc2047.el	Fri Nov 16 16:50:35 2007 +0000
@@ -30,8 +30,8 @@
 ;;; Code:

 (eval-when-compile
-  (require 'cl)
-  (defvar message-posting-charset))
+  (require 'cl))
+(defvar message-posting-charset)

 (require 'qp)
 (require 'mm-util)
@@ -285,7 +285,6 @@

 ;; Fixme: This, and the require below may not be the Right Thing, but
 ;; should be safe just before release.  -- fx 2001-02-08
-(eval-when-compile (defvar message-posting-charset))

 (defun rfc2047-encodable-p ()
   "Return non-nil if any characters in current buffer need encoding in headers.
--- a/lisp/gnus/smime.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/gnus/smime.el	Fri Nov 16 16:50:35 2007 +0000
@@ -424,8 +424,7 @@
     (insert-buffer-substring smime-details-buffer)
     nil))

-(eval-when-compile
-  (defvar from))
+(defvar from)

 (defun smime-decrypt-region (b e keyfile)
   "Decrypt S/MIME message in region between B and E with key in KEYFILE.
--- a/lisp/textmodes/reftex-dcr.el	Fri Nov 16 11:13:15 2007 +0000
+++ b/lisp/textmodes/reftex-dcr.el	Fri Nov 16 16:50:35 2007 +0000
@@ -352,7 +352,7 @@
     (message "Automatic display of crossref information was turned on")))

 (defun reftex-start-itimer-once ()
-   (and reftex-mode
+   (and (featurep 'xemacs) reftex-mode
         (not (itimer-live-p reftex-auto-view-crossref-timer))
         (setq reftex-auto-view-crossref-timer
               (start-itimer "RefTeX Idle Timer"