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 319518dfd7b9f5e98985ed584c5928a47d450f84 1 parent ddfdb23
@larsmagne larsmagne authored
View
20 lisp/ChangeLog
@@ -1,5 +1,25 @@
+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.
View
2  lisp/gnus-cite.el
@@ -332,7 +332,7 @@ always hide."
(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)
View
2  lisp/gnus-msg.el
@@ -114,7 +114,7 @@ the group.")
(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.
View
2  lisp/gnus-topic.el
@@ -532,7 +532,7 @@ articles in the topic and its subtopics."
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)
View
29 lisp/gnus.el
@@ -356,7 +356,7 @@ It uses the same syntax as the `gnus-split-methods' variable.")
(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
@@ -1723,7 +1723,7 @@ variable (string, integer, character, etc).")
"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
@@ -8295,8 +8295,8 @@ If NO-DISPLAY, don't generate a summary buffer."
(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."
@@ -12837,12 +12837,19 @@ Argument REVERSE means reverse order."
(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)
@@ -13563,7 +13570,7 @@ The following commands are available:
;; 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
View
35 lisp/message.el
@@ -1348,8 +1348,15 @@ the user from the mailer."
(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*"))
@@ -1625,17 +1632,19 @@ the user from the mailer."
(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."
View
8 lisp/nnmail.el
@@ -285,9 +285,11 @@ parameter. It should return nil, `warn' or `delete'.")
"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."
View
4 texi/ChangeLog
@@ -1,3 +1,7 @@
+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.
View
18 texi/gnus.texi
@@ -2941,6 +2941,16 @@ Scroll the current article back one page (@code{gnus-summary-prev-page}).
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)
@@ -5166,14 +5176,6 @@ Remove page breaks from the current article
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
Please sign in to comment.
Something went wrong with that request. Please try again.