+Sat Jul 6 05:46:12 1996 Lars Magne Ingebrigtsen <larsi@ylfing.ifi.uio.no>
+
+ * nnheader.el (nnheader-re-read-dir): Would sometimes bug out.
+
+Fri Jul 5 03:14:43 1996 Lars Magne Ingebrigtsen <larsi@ylfing.ifi.uio.no>
+
+ * gnus.el (gnus-summary-toggle-threads): Message the state.
+
+Thu Jul 4 07:52:07 1996 Lars Magne Ingebrigtsen <larsi@ylfing.ifi.uio.no>
+
+ * gnus.el: Gnus v5.2.33 is released.
+
Thu Jul 4 06:08:11 1996 Lars Magne Ingebrigtsen <larsi@aegir.ifi.uio.no>
* nntp.el (nntp-open-telnet): Working function.
(setq custom-file "/THIS FILE DOES NOT eXiST!")
+(defalias 'device-sound-enabled-p 'ignore)
+(defalias 'play-sound-file 'ignore)
+(defalias 'nndb-request-article 'ignore)
+(defalias 'efs-re-read-dir 'ignore)
+(defalias 'ange-ftp-re-read-dir 'ignore)
+
(defun dgnushack-compile ()
;(setq byte-compile-dynamic t)
(let ((files (directory-files "." nil ".el$"))
The line beneath the mouse pointer will be highlighted with this
face.")
(name . gnus-mouse-face)
- (calculate . (if (gnus-visual-p 'mouse-face 'highlight)
- (if (boundp 'gnus-mouse-face)
- gnus-mouse-face
- 'highlight)
- 'default))
+ (calculate . (condition-case ()
+ (if (gnus-visual-p 'mouse-face 'highlight)
+ (if (boundp 'gnus-mouse-face)
+ gnus-mouse-face
+ 'highlight)
+ 'default)
+ (error nil)))
(type . face))
((tag . "Article Display")
(doc . "Controls how the article buffer will look.
(require 'timezone)
(require 'nnheader)
(require 'nnmail)
-(require 'backquote)
(require 'nnoo)
(eval-when-compile (require 'cl))
"gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)"
"The mail address of the Gnus maintainers.")
-(defconst gnus-version-number "5.2.33"
+(defconst gnus-version-number "5.2.34"
"Version number for this version of Gnus.")
(defconst gnus-version (format "Gnus v%s" gnus-version-number)
(> (prefix-numeric-value arg) 0)))
(gnus-summary-prepare)
(gnus-summary-goto-subject current)
+ (gnus-message 6 "Threading is now %s" (if gnus-show-threads "on" "off"))
(gnus-summary-position-point)))
(defun gnus-summary-show-all-threads ()
(defvar efs-path-regexp)
(defun nnheader-re-read-dir (path)
"Re-read directory PATH if PATH is on a remote system."
- (if (or (fboundp 'efs-re-read-dir) (boundp 'efs-path-regexp))
+ (if (and (fboundp 'efs-re-read-dir) (boundp 'efs-path-regexp))
(when (string-match efs-path-regexp path)
(efs-re-read-dir path))
- (if (or (fboundp 'ange-ftp-re-read-dir) (boundp 'ange-ftp-path-format))
+ (if (and (fboundp 'ange-ftp-re-read-dir) (boundp 'ange-ftp-path-format))
(when (string-match (car ange-ftp-path-format) path)
(ange-ftp-re-read-dir path)))))