*** pub/sgnus/lisp/custom.el Fri Jun 21 18:02:32 1996 --- sgnus/lisp/custom.el Sat Jun 22 10:46:50 1996 *************** *** 260,268 **** ;; Put it in the Help menu, if possible. (if (string-match "XEmacs" emacs-version) ! ;; XEmacs (disabled because it doesn't work) ! (and current-menubar ! (add-menu-item '("Help") "Customize..." 'customize t)) ;; Emacs 19.28 and earlier (global-set-key [ menu-bar help customize ] '("Customize..." . customize)) --- 260,269 ---- ;; Put it in the Help menu, if possible. (if (string-match "XEmacs" emacs-version) ! (if (featurep 'menubar) ! ;; XEmacs (disabled because it doesn't work) ! (and current-menubar ! (add-menu-item '("Help") "Customize..." 'customize t))) ;; Emacs 19.28 and earlier (global-set-key [ menu-bar help customize ] '("Customize..." . customize)) *** pub/sgnus/lisp/gnus-xmas.el Fri Jun 21 18:02:38 1996 --- sgnus/lisp/gnus-xmas.el Sat Jun 22 11:01:19 1996 *************** *** 703,709 **** args)) (unless (find-face 'gnus-x-face) ! (copy-face 'default 'gnus-x-face)) (defun gnus-xmas-article-display-xface (beg end) "Display any XFace headers in the current article." --- 703,711 ---- args)) (unless (find-face 'gnus-x-face) ! (copy-face 'default 'gnus-x-face) ! (set-face-foreground 'gnus-x-face "black") ! (set-face-background 'gnus-x-face "white")) (defun gnus-xmas-article-display-xface (beg end) "Display any XFace headers in the current article." *** pub/sgnus/lisp/gnus.el Fri Jun 21 18:02:40 1996 --- sgnus/lisp/gnus.el Sat Jun 22 11:17:23 1996 *************** *** 1730,1736 **** "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version-number "5.2.24" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) --- 1730,1736 ---- "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version-number "5.2.25" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) *************** *** 8423,8445 **** (gnus-thread-total-score-1 (list thread))))) (defun gnus-thread-total-score-1 (root) ! ;; This function finds the total score of the thread below ROOT. (setq root (car root)) ! (let ((number (mail-header-number root))) ! (if (and (not (memq number gnus-newsgroup-limit)) ! (not (memq number gnus-newsgroup-sparse))) ! ;; This article shouldn't be counted. ! (apply gnus-thread-score-function ! (mapcar 'gnus-thread-total-score ! (cdr (gnus-gethash (mail-header-id root) ! gnus-newsgroup-dependencies)))) ! ;; This article should be counted. ! (apply gnus-thread-score-function ! (or (cdr (assq number gnus-newsgroup-scored)) ! gnus-summary-default-score 0) ! (mapcar 'gnus-thread-total-score ! (cdr (gnus-gethash (mail-header-id root) ! gnus-newsgroup-dependencies))))))) ;; Added by Per Abrahamsen . (defvar gnus-tmp-prev-subject nil) --- 8423,8436 ---- (gnus-thread-total-score-1 (list thread))))) (defun gnus-thread-total-score-1 (root) ! ;; This function find the total score of the thread below ROOT. (setq root (car root)) ! (apply gnus-thread-score-function ! (or (cdr (assq (mail-header-number root) gnus-newsgroup-scored)) ! gnus-summary-default-score 0) ! (mapcar 'gnus-thread-total-score ! (cdr (gnus-gethash (mail-header-id root) ! gnus-newsgroup-dependencies))))) ;; Added by Per Abrahamsen . (defvar gnus-tmp-prev-subject nil) *************** *** 8968,8974 **** ;; Adjust assocs. ((memq mark '(score bookmark)) (while articles ! (when (or (< (car (setq article (pop articles))) min) (> (car article) max)) (set var (delq article (symbol-value var)))))))))) --- 8959,8966 ---- ;; Adjust assocs. ((memq mark '(score bookmark)) (while articles ! (when (or (not (consp (setq article (pop articles)))) ! (< (car article) min) (> (car article) max)) (set var (delq article (symbol-value var)))))))))) *************** *** 13311,13317 **** (t (gnus-read-save-file-name "Save body in file:" default-name)))) (gnus-make-directory (file-name-directory filename)) ! (gnus-eval-in-buffer-window gnus-article-buffer (save-excursion (save-restriction (widen) --- 13303,13309 ---- (t (gnus-read-save-file-name "Save body in file:" default-name)))) (gnus-make-directory (file-name-directory filename)) ! (gnus-eval-in-buffer-window gnus-original-article-buffer (save-excursion (save-restriction (widen) *** pub/sgnus/lisp/ChangeLog Fri Jun 21 18:02:51 1996 --- sgnus/lisp/ChangeLog Sat Jun 22 11:17:19 1996 *************** *** 1,3 **** --- 1,23 ---- + Sat Jun 22 11:16:57 1996 Lars Magne Ingebrigtsen + + * gnus.el (gnus-adjust-marked-articles): Would bug out on some + bookmarks. + + Sat Jun 22 11:13:51 1996 Raja R. Harinath + + * gnus.el (gnus-summary-save-body-in-file): Saved wrong buffer. + + Sat Jun 22 10:57:35 1996 Lars Magne Ingebrigtsen + + * gnus.el (gnus-thread-total-score-1): Replaced with old, + non-buggy version. + + * gnus-xmas.el ((find-face 'gnus-x-face)): Set proper colors. + + Fri Jun 21 18:04:03 1996 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.2.24 is released. + Fri Jun 21 16:36:03 1996 Christoph Wedler * gnus-picon.el (gnus-picons-insert-face-if-exists): Total change.