+Sun May 26 20:29:02 1996 Lars Magne Ingebrigtsen <larsi@eistla.ifi.uio.no>
+
+ * gnus.el (gnus-article-sort-by-date): Inline.
+
+ * nnmail.el (nnmail-find-file): Don't insert literally.
+
+ * message.el (message-send-mail-with-mh): Save before sending.
+
+ * gnus-cite.el (gnus-article-hide-citation): Would bug out.
+
+ * gnus-topic.el (gnus-topic-grok-active): Could only be run once.
+
+ * message.el (message-check-news-syntax): Don't warn on long
+ signatures on forwarded articles.
+
+ * gnus.el (gnus-request-article-this-buffer): Put un-numbered
+ articles into the original buffer as well.
+
Sun May 26 03:51:38 1996 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+ * gnus.el: September Gnus v0.96 is released.
+
* nnheader-ems.el: Raw-file confusion.
* gnus-xmas.el (gnus-xmas-logo-colors): New variable.
(forward-line gnus-cited-lines-visible)
(if (> (point) end)
(setq beg nil)
- (setq beg (point))))
+ (setq beg (point-marker))))
(when (and beg end)
(gnus-add-text-properties beg end props)
(goto-char beg)
(gnus-define-keys
(gnus-send-bounce-map "D" gnus-summary-send-map)
"b" gnus-summary-resend-bounced-mail
- "c" gnus-summary-send-draft
+; "c" gnus-summary-send-draft
"r" gnus-summary-resend-message)
;;; Internal functions.
gnus-active-hashtb)
(setq groups (sort groups 'string<))
;; Init the variables.
- (setq gnus-topic-active-topology '(("" visible)))
+ (setq gnus-topic-active-topology (list (list "" 'visible)))
(setq gnus-topic-active-alist nil)
;; Descend the top-level hierarchy.
(gnus-topic-grok-active-1 gnus-topic-active-topology groups)
(defvar gnus-use-adaptive-scoring nil
"*If non-nil, use some adaptive scoring scheme.")
-(defvar gnus-use-cache nil
+(defvar gnus-use-cache 'passive
"*If nil, Gnus will ignore the article cache.
If `passive', it will allow entering (and reading) articles
explicitly entered into the cache. If anything else, use the
"gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)"
"The mail address of the Gnus maintainers.")
-(defconst gnus-version "September Gnus v0.96"
+(defconst gnus-version "September Gnus v0.97"
"Version number for this version of Gnus.")
(defvar gnus-info-nodes
(defsubst gnus-article-sort-by-date (h1 h2)
"Sort articles by root article date."
(string-lessp
- (gnus-sortable-date (mail-header-date h1))
- (gnus-sortable-date (mail-header-date h2))))
+ (inline (gnus-sortable-date (mail-header-date h1)))
+ (inline (gnus-sortable-date (mail-header-date h2)))))
(defun gnus-thread-sort-by-date (h1 h2)
"Sort threads by root article date."
(defun gnus-sortable-date (date)
"Make sortable string by string-lessp from DATE.
Timezone package is used."
- (setq date (timezone-fix-time date nil nil))
- (timezone-make-sortable-date
- (aref date 0) (aref date 1) (aref date 2)
- (timezone-make-time-string
- (aref date 3) (aref date 4) (aref date 5))))
-
+ (condition-case ()
+ (progn
+ (setq date (inline (timezone-fix-time
+ date nil
+ (aref (inline (timezone-parse-date date)) 4))))
+ (inline
+ (timezone-make-sortable-date
+ (aref date 0) (aref date 1) (aref date 2)
+ (inline
+ (timezone-make-time-string
+ (aref date 3) (aref date 4) (aref date 5))))))
+ (error "")))
+
;; Summary saving commands.
(defun gnus-summary-save-article (&optional n not-saved)
;; Take the article from the original article buffer
;; and place it in the buffer it's supposed to be in.
(when (and (get-buffer gnus-article-buffer)
- (numberp article)
+ ;;(numberp article)
(equal (buffer-name (current-buffer))
(buffer-name (get-buffer gnus-article-buffer))))
(save-excursion
(defun message-send-mail-with-mh ()
"Send the prepared message buffer with mh."
- (let (mh-previous-window-config)
- (mh-send-letter)))
+ (let ((mh-previous-window-config nil)
+ (name (make-temp-name
+ (concat (file-name-as-directory message-autosave-directory)
+ "msg."))))
+ (setq buffer-file-name name)
+ (mh-send-letter)
+ (condition-case ()
+ (delete-file name)
+ (error nil))))
(defun message-send-news (&optional arg)
(let ((tembuf (generate-new-buffer " *message temp*"))
(y-or-n-p
"It looks like no new text has been added. Really post? "))
;; Check the length of the signature.
- (or (message-check-element 'signature)
- (progn
- (goto-char (point-max))
- (if (not (re-search-backward "^-- $" nil t))
- t
- (if (> (count-lines (point) (point-max)) 5)
- (y-or-n-p
- (format
- "Your .sig is %d lines; it should be max 4. Really post? "
- (count-lines (point) (point-max))))
- t))))))
+ (or
+ (message-check-element 'signature)
+ (progn
+ (goto-char (point-max))
+ (if (or (not (re-search-backward "^-- $" nil t))
+ (search-forward message-forward-end-separator nil t))
+ t
+ (if (> (count-lines (point) (point-max)) 5)
+ (y-or-n-p
+ (format
+ "Your .sig is %d lines; it should be max 4. Really post? "
+ (count-lines (point) (point-max))))
+ t))))))
(defun message-check-element (type)
"Returns non-nil if this type is not to be checked."
"Insert FILE in server buffer safely."
(set-buffer nntp-server-buffer)
(erase-buffer)
- (condition-case ()
- (progn (nnheader-insert-file-contents-literally file) t)
- (file-error nil)))
+ (let ((format-alist nil)
+ (after-insert-file-functions nil))
+ (condition-case ()
+ (progn (insert-file-contents file) t)
+ (file-error nil))))
(defun nnmail-group-pathname (group dir &optional file)
"Make pathname for GROUP."
+Sun May 26 18:28:19 1996 Lars Magne Ingebrigtsen <lars@eyesore.no>
+
+ * gnus.texi (Paging the Article): Moved.
+
Fri May 24 17:19:58 1996 Lars Magne Ingebrigtsen <lars@eyesore.no>
* gnus.texi (Summary Buffer Format): Addition.
Scroll the current article one line forward
(@code{gnus-summary-scroll-up}).
+@item A g
+@itemx g
+@kindex A g (Summary)
+@kindex g (Summary)
+@findex gnus-summary-show-article
+(Re)fetch the current article (@code{gnus-summary-show-article}). If
+given a prefix, fetch the current article, but don't run any of the
+article treatment functions. This will give you a ``raw'' article, just
+the way it came from the server.
+
@item A <
@itemx <
@kindex < (Summary)
Do a Caesar rotate (rot13) on the article buffer
(@code{gnus-summary-caesar-message}).
-@item A g
-@kindex A g (Summary)
-@findex gnus-summary-show-article
-(Re)fetch the current article (@code{gnus-summary-show-article}). If
-given a prefix, fetch the current article, but don't run any of the
-article treatment functions. This will give you a ``raw'' article, just
-the way it came from the server.
-
@item W t
@kindex W t (Summary)
@findex gnus-summary-toggle-header