Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

*** empty log message ***

  • Loading branch information...
commit 53795844cae7997eeedca6277f2f8726562bdd6c 1 parent 5e41e8f
@larsmagne larsmagne authored
View
26 lisp/ChangeLog
@@ -1,3 +1,29 @@
+Sat May 10 00:37:32 1997 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
+
+ * gnus.el: Gnus v5.4.52 is released.
+
+Sat May 10 00:13:30 1997 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+
+ * nnfolder.el (nnfolder-possibly-change-group): Set wrong
+ variable.
+
+ * gnus-art.el (gnus-article-edit-article): Remove invisible text
+ under XEmacs.
+ (gnus-article-treat-html): Insert string.
+
+Thu May 8 10:53:12 1997 Steven L Baur <steve@altair.xemacs.org>
+
+ * gnus-msg.el (gnus-summary-mail-crosspost-complaint):
+ `deactivate-mark' doesn't exist in XEmacs.
+
+Fri May 9 23:50:01 1997 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+
+ * gnus-topic.el (gnus-topic-create-topic): Added doc.
+
+ * gnus-sum.el (gnus-summary-refer-article): Insert sparse
+ non-displayed articles properly.
+ (gnus-cut-thread): Exclude non-displayed sparse articles.
+
Thu May 8 17:37:38 1997 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* gnus.el: Gnus v5.4.51 is released.
View
4 lisp/gnus-art.el
@@ -1130,7 +1130,7 @@ Put point at the beginning of the signature separator."
(setq buf (buffer-string))))
(when buf
(delete-region (point-min) (point-max))
- (insert-buffer-substring buf)
+ (insert buf)
(kill-buffer buf))
(widen)
(goto-char (point-min))
@@ -2464,7 +2464,7 @@ groups."
(let ((winconf (current-window-configuration)))
(set-buffer gnus-article-buffer)
(gnus-article-edit-mode)
- (set-text-properties (point-min) (point-max) nil)
+ (gnus-set-text-properties (point-min) (point-max) nil)
(gnus-configure-windows 'edit-article)
(setq gnus-article-edit-done-function exit-func)
(setq gnus-prev-winconf winconf)
View
3  lisp/gnus-msg.el
@@ -691,7 +691,8 @@ The current group name will be inserted at \"%s\".")
(message-goto-subject)
(re-search-forward " *$")
(replace-match " (crosspost notification)" t t)
- (deactivate-mark)
+ (when (fboundp 'deactivate-mark)
+ (deactivate-mark))
(when (gnus-y-or-n-p "Send this complaint? ")
(message-send-and-exit)))))))
View
19 lisp/gnus-sum.el
@@ -2014,7 +2014,7 @@ The following commands are available:
(defmacro gnus-summary-article-sparse-p (article)
"Say whether this article is a sparse article or not."
- ` (memq ,article gnus-newsgroup-sparse))
+ `(memq ,article gnus-newsgroup-sparse))
(defmacro gnus-summary-article-ancient-p (article)
"Say whether this article is a sparse article or not."
@@ -5931,7 +5931,10 @@ If ALL, mark even excluded ticked and dormants as read."
(mail-header-number (car thread))))
(progn
(if (<= (length (cdr thread)) 1)
- (setq thread (cadr thread))
+ (setq gnus-newsgroup-limit
+ (delq (mail-header-number (car thread))
+ gnus-newsgroup-limit)
+ thread (cadr thread))
(when (gnus-invisible-cut-children (cdr thread))
(let ((th (cdr thread)))
(while th
@@ -5939,8 +5942,7 @@ If ALL, mark even excluded ticked and dormants as read."
gnus-newsgroup-limit)
(setq thread (car th)
th nil)
- (setq th (cdr th)))))))))
- ))
+ (setq th (cdr th)))))))))))
thread)
(defun gnus-cut-threads (threads)
@@ -6156,8 +6158,13 @@ or `gnus-select-method', no matter what backend the article comes from."
(let* ((header (gnus-id-to-header message-id))
(sparse (and header
(gnus-summary-article-sparse-p
- (mail-header-number header)))))
- (if header
+ (mail-header-number header))
+ (memq (mail-header-number header)
+ gnus-newsgroup-limit))))
+ (if (and header
+ (or (not (gnus-summary-article-sparse-p
+ (mail-header-number header)))
+ sparse))
(prog1
;; The article is present in the buffer, so we just go to it.
(gnus-summary-goto-article
View
2  lisp/gnus-topic.el
@@ -1024,6 +1024,8 @@ If performed over a topic line, toggle folding the topic."
(gnus-group-read-group all no-article group)))
(defun gnus-topic-create-topic (topic parent &optional previous full-topic)
+ "Create a new TOPIC under PARENT.
+When used interactively, PARENT will be the topic under point."
(interactive
(list
(read-string "New topic: ")
View
2  lisp/gnus.el
@@ -226,7 +226,7 @@ is restarted, and sometimes reloaded."
:link '(custom-manual "(gnus)Exiting Gnus")
:group 'gnus)
-(defconst gnus-version-number "5.4.51"
+(defconst gnus-version-number "5.4.52"
"Version number for this version of Gnus.")
(defconst gnus-version (format "Gnus v%s" gnus-version-number)
View
2  lisp/nnfolder.el
@@ -509,7 +509,7 @@ time saver for large mailboxes.")
(if dont-check
(setq nnfolder-current-group group
- nnfolder-current-folder nil)
+ nnfolder-current-buffer nil)
(let (inf file)
;; If we have to change groups, see if we don't already have the
;; folder in memory. If we do, verify the modtime and destroy
View
4 texi/ChangeLog
@@ -1,3 +1,7 @@
+Thu May 8 23:48:36 1997 James Troup <J.J.Troup@comp.brad.ac.uk>
+
+ * gnus.texi (Saving Articles): Typo.
+
Wed May 7 19:00:48 1997 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
* gnus.texi (Saving Articles): Addition.
View
8 texi/gnus.texi
@@ -1,7 +1,7 @@
\input texinfo @c -*-texinfo-*-
@setfilename gnus
-@settitle Gnus 5.4.51 Manual
+@settitle Gnus 5.4.52 Manual
@synindex fn cp
@synindex vr cp
@synindex pg cp
@@ -287,7 +287,7 @@ into another language, under the above conditions for modified versions.
@tex
@titlepage
-@title Gnus 5.4.51 Manual
+@title Gnus 5.4.52 Manual
@author by Lars Magne Ingebrigtsen
@page
@@ -323,7 +323,7 @@ can be gotten by any nefarious means you can think of---@sc{nntp}, local
spool or your mbox file. All at the same time, if you want to push your
luck.
-This manual corresponds to Gnus 5.4.51.
+This manual corresponds to Gnus 5.4.52.
@end ifinfo
@@ -5236,7 +5236,7 @@ lots of mail groups that are called things like
these group names before creating the file name to save to. The
following will do just that:
-1@lisp
+@lisp
(defun my-save-name (group)
(when (string-match "^nnml:mail." group)
(substring group (match-end 0))))
View
6 texi/message.texi
@@ -1,7 +1,7 @@
\input texinfo @c -*-texinfo-*-
@setfilename message
-@settitle Message 5.4.51 Manual
+@settitle Message 5.4.52 Manual
@synindex fn cp
@synindex vr cp
@synindex pg cp
@@ -39,7 +39,7 @@ into another language, under the above conditions for modified versions.
@tex
@titlepage
-@title Message 5.4.51 Manual
+@title Message 5.4.52 Manual
@author by Lars Magne Ingebrigtsen
@page
@@ -79,7 +79,7 @@ buffers.
* Key Index:: List of Message mode keys.
@end menu
-This manual corresponds to Message 5.4.51. Message is distributed with
+This manual corresponds to Message 5.4.52. Message is distributed with
the Gnus distribution bearing the same version number as this manual
has.
Please sign in to comment.
Something went wrong with that request. Please try again.