From: Lars Magne Ingebrigtsen Date: Wed, 5 Mar 1997 05:21:32 +0000 (+0000) Subject: *** empty log message *** X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=e137e5b89c72617ee25c81d789123ae5c2f22b13;p=gnus *** empty log message *** --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 676977e0e..f46f3d44b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,58 @@ +Mon Jan 27 18:03:17 1997 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.4.5 is released. + +Mon Jan 27 18:00:46 1997 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.4.5 is released. + +Mon Jan 27 17:35:21 1997 Lars Magne Ingebrigtsen + + * message.el (message-expand-group): Don't skip over ":". + + * gnus-score.el (gnus-score-find-bnews): Wouldn't find "nntp+" + score files. + + * gnus-art.el (t): Define `M-^'. + +Mon Jan 27 15:00:11 1997 Hrvoje Niksic + + * gnus-sum.el (gnus-summary-search-article): Inhibit forced + redisplay on XEmacs. + +Mon Jan 27 08:54:55 1997 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.4.4 is released. + +Mon Jan 27 07:29:30 1997 Lars Magne Ingebrigtsen + + * nnsoup.el (nnsoup-file-name): Also find AREAS. + +Mon Jan 27 07:09:13 1997 Joev Dubach + + * message.el (message-use-followup-to): Doc fix. + +Mon Jan 27 06:59:14 1997 Lars Magne Ingebrigtsen + + * gnus-art.el (gnus-article-read-summary-keys): Don't mess up when + using pick mode. + + * gnus-undo.el (gnus-undo-mode): Set undo boundary. + + * gnus-sum.el (gnus-summary-exit-hook): Doc fix. + +Sun Jan 26 13:20:42 1997 Lars Magne Ingebrigtsen + + * gnus.el: Autoload gnus-add-configuration. + +Sun Jan 26 13:01:07 1997 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.4.3 is released. + +Sun Jan 26 12:52:11 1997 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.4.2 is released. + Sun Jan 26 09:28:31 1997 Per Abrahamsen * gnus-group.el: Organized customization options, and moved group diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index e9fdf48d2..a13b82bb5 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -1672,6 +1672,7 @@ If variable `gnus-use-long-file-name' is non-nil, it is "\C-d" gnus-article-read-summary-keys "\M-*" gnus-article-read-summary-keys + "\M-^" gnus-article-read-summary-keys "\M-g" gnus-article-read-summary-keys) (substitute-key-definition diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el index 27c2d404c..363042637 100644 --- a/lisp/gnus-score.el +++ b/lisp/gnus-score.el @@ -2429,12 +2429,11 @@ GROUP using BNews sys file syntax." ;; Kludge to get rid of "nntp+" problems. (goto-char (point-min)) (when (looking-at "nn[a-z]+\\+") - (progn - (search-forward "+") - (forward-char -1) - (insert "\\"))) + (search-forward "+") + (forward-char -1) + (insert "\\") + (forward-char 1)) ;; Kludge to deal with "++". - (goto-char (point-min)) (while (search-forward "+" nil t) (replace-match "\\+" t t)) ;; Translate "all" to ".*". diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index e4f720f69..0943ead85 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -6215,6 +6215,7 @@ Optional argument BACKWARD means do search for backward. (gnus-article-display-hook nil) (gnus-mark-article-hook nil) ;Inhibit marking as read. (gnus-use-article-prefetch nil) + (gnus-xmas-force-redisplay nil) ;Inhibit XEmacs redisplay. (sum (current-buffer)) (found nil) point) diff --git a/lisp/gnus.el b/lisp/gnus.el index db31fdfa0..12796e321 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -154,7 +154,7 @@ :link '(custom-manual "(gnus)Various Various") :group 'gnus) -(defconst gnus-version-number "5.4.3" +(defconst gnus-version-number "5.4.5" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) diff --git a/lisp/message.el b/lisp/message.el index e6f20823d..6ea6d6038 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -583,6 +583,9 @@ actually occur." 'message-mail 'message-send-and-exit 'message-kill-buffer 'message-send-hook)) +(defvar message-delete-mh-headers t + "If non-nil, delete the deletable headers before feeding to mh.") + ;;; Internal variables. ;;; Well, not really internal. @@ -1760,13 +1763,14 @@ to find out how to use this." "msg.")))) (setq buffer-file-name name) ;; MH wants to generate these headers itself. - (let ((headers message-deletable-headers)) - (while headers - (goto-char (point-min)) - (and (re-search-forward - (concat "^" (symbol-name (car headers)) ": *") nil t) - (message-delete-line)) - (pop headers))) + (when message-delete-mh-headers + (let ((headers message-deletable-headers)) + (while headers + (goto-char (point-min)) + (and (re-search-forward + (concat "^" (symbol-name (car headers)) ": *") nil t) + (message-delete-line)) + (pop headers)))) (run-hooks 'message-send-mail-hook) ;; Pass it on to mh. (mh-send-letter))) @@ -3337,7 +3341,15 @@ Do a `tab-to-tab-stop' if not in those headers." (defvar gnus-active-hashtb) (defun message-expand-group () - (let* ((b (save-excursion (skip-chars-backward "^, :\t\n") (point))) + (let* ((b (save-excursion + (save-restriction + (narrow-to-region + (save-excursion + (beginning-of-line) + (skip-chars-forward "^:") + (1+ (point))) + (point)) + (skip-chars-backward "^, \t\n") (point)))) (completion-ignore-case t) (string (buffer-substring b (point))) (hashtb (and (boundp 'gnus-active-hashtb) gnus-active-hashtb)) diff --git a/texi/ChangeLog b/texi/ChangeLog index b0ba56409..6c94dc547 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,8 @@ +Mon Jan 27 17:51:29 1997 Lars Magne Ingebrigtsen + + * gnus.texi (Highlighting and Menus): Removed + `gnus-display-type'. + Sat Jan 25 08:09:30 1997 Lars Magne Ingebrigtsen * gnus.texi (The Active File): Addition. diff --git a/texi/gnus.texi b/texi/gnus.texi index 92a1423ed..8f2900a7d 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -12715,21 +12715,6 @@ Other general variables that influence the look of all buffers include: This is the face (i.e., font) used for mouse highlighting in Gnus. No mouse highlights will be done if @code{gnus-visual} is @code{nil}. -@item gnus-display-type -@vindex gnus-display-type -This variable is symbol indicating the display type Emacs is running -under. The symbol should be one of @code{color}, @code{grayscale} or -@code{mono}. If Gnus guesses this display attribute wrongly, either set -this variable in your @file{~/.emacs} or set the resource -@code{Emacs.displayType} in your @file{~/.Xdefaults}. - -@item gnus-background-mode -@vindex gnus-background-mode -This is a symbol indicating the Emacs background brightness. The symbol -should be one of @code{light} or @code{dark}. If Gnus guesses this -frame attribute wrongly, either set this variable in your @file{~/.emacs} or -set the resource @code{Emacs.backgroundMode} in your @file{~/.Xdefaults}. -`gnus-display-type'. @end table There are hooks associated with the creation of all the different menus: