Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

*** empty log message ***

  • Loading branch information...
commit 5a18bef5729929eb740b54de74a1dde1d652fb91 1 parent e137e5b
Lars Ingebrigtsen larsmagne authored
43 lisp/ChangeLog
View
@@ -1,8 +1,45 @@
-Mon Jan 27 18:03:17 1997 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
+Tue Jan 28 18:11:54 1997 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
- * gnus.el: Gnus v5.4.5 is released.
+ * gnus.el: Gnus v5.4.6 is released.
+
+Tue Jan 28 13:55:12 1997 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+
+ * gnus-art.el (gnus-article-check-hidden-text): Widen before doing
+ anything.
+
+ * gnus.el (gnus-visual): Doc fix.
+
+ * gnus-art.el (gnus-visible-headers): Just include "Resent-From".
+
+Mon Jan 27 19:40:37 1997 Paul Franklin <paul@cs.washington.edu>
+
+ * gnus-sum.el (gnus-read-header): Make sure nntp-server-buffer is
+ empty on failure.
+
+Tue Jan 28 00:33:27 1997 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
-Mon Jan 27 18:00:46 1997 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
+ * nnmail.el (nnmail-delete-incoming): Changed default.
+
+ * gnus-topic.el (gnus-topic-mark-topic): Let groups be marked.
+ (gnus-topic-unmark-topic): Ditto.
+
+ * nnmail.el (nnmail-process-babyl-mail-format): Unquote ">From ".
+
+ * gnus-sum.el (gnus-summary-read-group): Only beep dead groups.
+
+Mon Jan 27 18:24:27 1997 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+
+ * nnml.el (nnml-generate-nov-databases-1): Work properly on
+ compressed files.
+ (nnml-generate-nov-file): Ditto.
+
+ * gnus.el (gnus-article-mode-map): Don't unconditionally suppress
+ all the major keymaps.
+
+ * gnus-sum.el (gnus-summary-read-group): Beep dead non-native
+ groups can't be entered.
+
+Mon Jan 27 18:03:17 1997 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* gnus.el: Gnus v5.4.5 is released.
31 lisp/gnus-art.el
View
@@ -102,7 +102,7 @@ If `gnus-visible-headers' is non-nil, this variable will be ignored."
:group 'gnus-article-hiding)
(defcustom gnus-visible-headers
- "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-"
+ "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-From"
"All headers that do not match this regexp will be hidden.
This variable can also be a list of regexp of headers to remain visible.
If this variable is non-nil, `gnus-ignored-headers' will be ignored."
@@ -948,7 +948,8 @@ always hide."
(narrow-to-region beg end)
(goto-char (point-min))
(while (re-search-forward "^- " nil t)
- (gnus-article-hide-text-type (match-beginning 0) (match-end 0) 'pgp))
+ (gnus-article-hide-text-type
+ (match-beginning 0) (match-end 0) 'pgp))
(widen))))))
(defun article-hide-pem (&optional arg)
@@ -1089,17 +1090,19 @@ Put point at the beginning of the signature separator."
Arg can be nil or a number. Nil and positive means hide, negative
means show, 0 means toggle."
(save-excursion
- (let ((hide (gnus-article-hidden-text-p type)))
- (cond
- ((or (null arg)
- (> arg 0))
- nil)
- ((< arg 0)
- (gnus-article-show-hidden-text type))
- (t
- (if (eq hide 'hidden)
- (gnus-article-show-hidden-text type)
- nil))))))
+ (save-restriction
+ (widen)
+ (let ((hide (gnus-article-hidden-text-p type)))
+ (cond
+ ((or (null arg)
+ (> arg 0))
+ nil)
+ ((< arg 0)
+ (gnus-article-show-hidden-text type))
+ (t
+ (if (eq hide 'hidden)
+ (gnus-article-show-hidden-text type)
+ nil)))))))
(defun gnus-article-hidden-text-p (type)
"Say whether the current buffer contains hidden text of type TYPE."
@@ -1672,7 +1675,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-#" gnus-article-read-summary-keys
"\M-g" gnus-article-read-summary-keys)
(substitute-key-definition
9 lisp/gnus-sum.el
View
@@ -2474,6 +2474,10 @@ the thread are to be displayed."
If SHOW-ALL is non-nil, already read articles are also listed.
If NO-ARTICLE is non-nil, no article is selected initially.
If NO-DISPLAY, don't generate a summary buffer."
+ ;; Killed foreign groups can't be entered.
+ (when (and (not (gnus-group-native-p group))
+ (not (gnus-gethash group gnus-newsrc-hashtb)))
+ (error "Dead non-native groups can't be entered"))
(gnus-message 5 "Retrieving newsgroup: %s..." group)
(let* ((new-group (gnus-summary-setup-buffer group))
(quit-config (gnus-group-quit-config group))
@@ -4701,9 +4705,8 @@ The prefix argument ALL means to select all articles."
(group gnus-newsgroup-name))
(setq gnus-newsgroup-begin nil)
(gnus-summary-exit)
- ;; We have to adjust the point of group mode buffer because the
- ;; current point was moved to the next unread newsgroup by
- ;; exiting.
+ ;; We have to adjust the point of group mode buffer because
+ ;; point was moved to the next unread newsgroup by exiting.
(gnus-summary-jump-to-group group)
(when rescan
(save-excursion
4 lisp/gnus-topic.el
View
@@ -1129,7 +1129,7 @@ If COPYP, copy the groups instead."
(defun gnus-topic-mark-topic (topic &optional unmark)
"Mark all groups in the topic with the process mark."
- (interactive (list (gnus-current-topic)))
+ (interactive (list (gnus-group-topic-name)))
(if (not topic)
(call-interactively 'gnus-group-mark-group)
(save-excursion
@@ -1140,7 +1140,7 @@ If COPYP, copy the groups instead."
(defun gnus-topic-unmark-topic (topic &optional unmark)
"Remove the process mark from all groups in the topic."
- (interactive (list (gnus-current-topic)))
+ (interactive (list (gnus-group-topic-name)))
(if (not topic)
(call-interactively 'gnus-group-mark-group)
(gnus-topic-mark-topic topic t)))
31 lisp/gnus.el
View
@@ -1210,7 +1210,18 @@ It is called with three parameters -- GROUP, LEVEL and OLDLEVEL."
"Enable visual features.
If `visual' is disabled, there will be no menus and few faces. Most of
the visual customization options below will be ignored. Gnus will use
-less space and be faster as a result."
+less space and be faster as a result.
+
+This variable can also be a list of visual elements to switch on. For
+instance, to switch off all visual things except menus, you can say:
+
+ (setq gnus-visual '(menu))
+
+Valid elements include `summary-highlight', `group-highlight',
+`article-highlight', `mouse-face', `summary-menu', `group-menu',
+`article-menu', `tree-highlight', `menu', `highlight', `browse-menu',
+`server-menu', `page-marker', `tree-menu', `binary-menu', `pick-menu',
+and `grouplens-menu'."
:group 'gnus-meta
:group 'gnus-visual
:type '(set (const summary-highlight)
@@ -1668,12 +1679,18 @@ This restriction may disappear in later versions of Gnus."
(while keys
(define-key keymap (pop keys) 'undefined))))
-(defvar gnus-article-mode-map (make-keymap))
-(gnus-suppress-keymap gnus-article-mode-map)
-(defvar gnus-summary-mode-map (make-keymap))
-(gnus-suppress-keymap gnus-summary-mode-map)
-(defvar gnus-group-mode-map (make-keymap))
-(gnus-suppress-keymap gnus-group-mode-map)
+(defvar gnus-article-mode-map
+ (let ((keymap (make-keymap)))
+ (gnus-suppress-keymap keymap)
+ keymap))
+(defvar gnus-summary-mode-map
+ (let ((keymap (make-keymap)))
+ (gnus-suppress-keymap keymap)
+ keymap))
+(defvar gnus-group-mode-map
+ (let ((keymap (make-keymap)))
+ (gnus-suppress-keymap keymap)
+ keymap))
6 lisp/nnmail.el
View
@@ -349,7 +349,7 @@ Example:
:group 'gnus-mail
:type '(repeat (cons :format "%v" symbol regexp)))
-(defcustom nnmail-delete-incoming nil
+(defcustom nnmail-delete-incoming t
"*If non-nil, the mail backends will delete incoming files after
splitting."
:group 'gnus-mail
@@ -658,6 +658,10 @@ is a spool. If not using procmail, return GROUP."
(search-forward-regexp "^[^:]*\\( .*\\|\\)$" nil t)
(search-forward " "))
(point)))
+ ;; Unquote the ">From " line, if any.
+ (goto-char (point-min))
+ (when (looking-at ">From ")
+ (replace-match "X-From-Line: ") )
(run-hooks 'nnmail-prepare-incoming-header-hook)
(goto-char (point-max))
;; Find the Message-ID header.
11 lisp/nnml.el
View
@@ -710,11 +710,7 @@ all. This may very well take some time.")
(file-directory-p dir))
(nnml-generate-nov-databases-1 dir seen))))
;; Do this directory.
- (let ((files (sort
- (mapcar
- (lambda (name) (string-to-int name))
- (directory-files dir nil "^[0-9]+$" t))
- '<)))
+ (let ((files (nnheader-article-to-file-alist dir)))
(when files
(funcall nnml-generate-active-function dir)
;; Generate the nov file.
@@ -749,8 +745,7 @@ all. This may very well take some time.")
(when (file-exists-p nov)
(funcall nnmail-delete-file-function nov))
(while files
- (unless (file-directory-p
- (setq file (concat dir (int-to-string (car files)))))
+ (unless (file-directory-p (setq file (concat dir (cdar files))))
(erase-buffer)
(nnheader-insert-file-contents file)
(narrow-to-region
@@ -762,7 +757,7 @@ all. This may very well take some time.")
(when (and (not (= 0 chars)) ; none of them empty files...
(not (= (point-min) (point-max))))
(goto-char (point-min))
- (setq headers (nnml-parse-head chars (car files)))
+ (setq headers (nnml-parse-head chars (caar files)))
(save-excursion
(set-buffer nov-buffer)
(goto-char (point-max))
Please sign in to comment.
Something went wrong with that request. Please try again.