* lpath.el: "." is in the load-path because dgnushack.el.
2000-10-03 Bjorn Torkelsson <torkel@hpc2n.umu.se>
* uudecode.el: xemacs cleanup (use featurep ' xemacs)
* nnheader.el: ditto
* mm-util.el: ditto
* message.el: ditto
* binhex.el: ditto
* gnus-audio.el: removed unnecessary xemacs test
* earcon.el: ditto
+2000-10-03 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * lpath.el: "." is in the load-path because dgnushack.el.
+
+2000-10-03 Bjorn Torkelsson <torkel@hpc2n.umu.se>
+
+ * uudecode.el: xemacs cleanup (use featurep ' xemacs)
+
+ * nnheader.el: ditto
+
+ * mm-util.el: ditto
+
+ * message.el: ditto
+
+ * binhex.el: ditto
+
+ * gnus-audio.el: removed unnecessary xemacs test
+
+ * earcon.el: ditto
+
2000-10-03 19:55:55 Lars Magne Ingebrigtsen <larsi@gnus.org>
* nnweb.el (nnweb-decode-entities): Work for non-character
((boundp 'temporary-file-directory) temporary-file-directory)
("/tmp/")))
-(if (string-match "XEmacs" emacs-version)
+(if (featurep 'xemacs)
(defalias 'binhex-insert-char 'insert-char)
(defun binhex-insert-char (char &optional count ignored buffer)
(if (or (null buffer) (eq buffer (current-buffer)))
(save-excursion
(goto-char start)
(when (re-search-forward binhex-begin-line end t)
- (if (and (not (string-match "XEmacs\\|Lucid" emacs-version))
+ (if (and (not (featurep 'xemacs))
(boundp 'enable-multibyte-characters))
(let ((multibyte
(default-value 'enable-multibyte-characters)))
;;; Code:
-(if (null (boundp 'running-xemacs))
- (defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version)))
-
(eval-when-compile (require 'cl))
(require 'gnus)
(require 'gnus-audio)
;; You can safely ignore most of it until Red Gnus. **Evil Laugh**
;;; Code:
-(when (null (boundp 'running-xemacs))
- (defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version)))
-
(require 'nnheader)
(eval-when-compile (require 'cl))
find-image insert-image image-size
vcard-pretty-print image-type-available-p)))
-(setq load-path (cons "." load-path))
(require 'custom)
(defun md5 (a &optional b c)
(defalias 'message-exchange-point-and-mark 'exchange-point-and-mark)
;; Support for toolbar
-(when (string-match "XEmacs\\|Lucid" emacs-version)
+(when (featurep 'xemacs)
(require 'messagexmas))
;;; Group name completion.
See also `with-temp-file' and `with-output-to-string'."
(let ((temp-buffer (make-symbol "temp-buffer"))
(multibyte (make-symbol "multibyte")))
- `(if (or (string-match "XEmacs\\|Lucid" emacs-version)
+ `(if (or (featurep 'xemacs)
(not (boundp 'enable-multibyte-characters)))
(with-temp-buffer ,@forms)
(let ((,multibyte (default-value 'enable-multibyte-characters))
(defalias 'nnheader-cancel-timer 'cancel-timer)
(defalias 'nnheader-cancel-function-timers 'cancel-function-timers)
-(when (string-match "XEmacs" emacs-version)
+(when (featurep 'xemacs)
(require 'nnheaderxm))
(run-hooks 'nnheader-load-hook)
(and work-buffer (kill-buffer work-buffer))
(ignore-errors (or file-name (delete-file tempfile))))))
-(if (string-match "XEmacs" emacs-version)
+(if (featurep 'xemacs)
(defalias 'uudecode-insert-char 'insert-char)
(defun uudecode-insert-char (char &optional count ignored buffer)
(if (or (null buffer) (eq buffer (current-buffer)))