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 fb74c6b3b0b50bbd8b88bff08b1f0998d9d7b1ff 1 parent 100a990
Lars Ingebrigtsen larsmagne authored
34 lisp/ChangeLog
View
@@ -1,3 +1,37 @@
+Sun Oct 25 23:11:44 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
+
+ * gnus.el: Pterodactyl Gnus v0.40 is released.
+
+1998-10-25 21:41:05 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * gnus-sum.el (gnus-summary-mark-forward): Show thread.
+
+ * gnus-start.el (gnus-check-first-time-used): Ignore dribble.
+
+ * gnus-agent.el (gnus-agent-fetch-group-1): Bind name.
+
+ * nnml.el (nnml-possibly-create-directory): Check before making.
+
+1998-10-25 19:43:08 Kai Grossjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+ * nnheader.el (nnheader-insert-nov): Don't infloop.
+
+1998-10-25 19:26:11 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * gnus-sum.el (gnus-set-mode-line): Check that the spec has been
+ set up.
+
+1998-10-25 19:22:03 Joerg Lenneis <lenneis@statrix2.wu-wien.ac.at>
+
+ * nneething.el (nneething-file-name): New definition.
+
+1998-10-25 17:56:23 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * gnus-art.el (gnus-treatment-function-alist): Fix.
+ (gnus-summary-save-in-rmail): Use gnus-output-to-rmail.
+
+ * nndoc.el (nndoc-dissect-mime-parts-sub): Recognize first part.
+
Sun Oct 25 06:23:13 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* gnus.el: Pterodactyl Gnus v0.39 is released.
1  lisp/gnus-agent.el
View
@@ -903,6 +903,7 @@ the actual number of articles toggled is returned."
(defun gnus-agent-fetch-group-1 (group method)
"Fetch GROUP."
(let ((gnus-command-method method)
+ (gnus-newsgroup-name group)
gnus-newsgroup-dependencies gnus-newsgroup-headers
gnus-newsgroup-scored gnus-headers gnus-score
gnus-use-cache articles arts
4 lisp/gnus-art.el
View
@@ -582,7 +582,7 @@ displayed by the first non-nil matching CONTENT face."
;;; Internal variables
-(defvar gnus-treatment-function-alist ()
+(defvar gnus-treatment-function-alist
'((gnus-treat-body-highlight-signature gnus-article-highlight-signature nil)
))
@@ -1710,7 +1710,7 @@ Directory to save to is default to `gnus-article-save-directory'."
(save-excursion
(save-restriction
(widen)
- (rmail-output-to-rmail-file filename))))
+ (gnus-output-to-rmail filename))))
filename)
(defun gnus-summary-save-in-mail (&optional filename)
3  lisp/gnus-start.el
View
@@ -1103,8 +1103,7 @@ for new groups, and subscribe the new groups as zombies."
got-new))
(defun gnus-check-first-time-used ()
- (if (or (> (length gnus-newsrc-alist) 1)
- (file-exists-p gnus-startup-file)
+ (if (or (file-exists-p gnus-startup-file)
(file-exists-p (concat gnus-startup-file ".el"))
(file-exists-p (concat gnus-startup-file ".eld")))
nil
5 lisp/gnus-sum.el
View
@@ -4255,7 +4255,9 @@ If SELECT-ARTICLES, only select those articles from GROUP."
"This function sets the mode line of the article or summary buffers.
If WHERE is `summary', the summary mode line format will be used."
;; Is this mode line one we keep updated?
- (when (memq where gnus-updated-mode-lines)
+ (when (and (memq where gnus-updated-mode-lines)
+ (symbol-value
+ (intern (format "gnus-%s-mode-line-format-spec" where))))
(let (mode-string)
(save-excursion
;; We evaluate this in the summary buffer since these
@@ -7724,6 +7726,7 @@ If N is negative, mark backwards instead. Mark with MARK, ?r by default.
The difference between N and the actual number of articles marked is
returned."
(interactive "p")
+ (gnus-summary-show-thread)
(let ((backward (< n 0))
(gnus-summary-goto-unread
(and gnus-summary-goto-unread
3  lisp/gnus-topic.el
View
@@ -444,7 +444,8 @@ articles in the topic and its subtopics."
(if (stringp entry)
;; Dead groups.
(gnus-group-insert-group-line
- entry (if (member entry gnus-zombie-list) gnus-level-zombie gnus-level-killed)
+ entry (if (member entry gnus-zombie-list)
+ gnus-level-zombie gnus-level-killed)
nil (- (1+ (cdr (setq active (gnus-active entry))))
(car active))
nil)
2  lisp/gnus.el
View
@@ -254,7 +254,7 @@ is restarted, and sometimes reloaded."
:link '(custom-manual "(gnus)Exiting Gnus")
:group 'gnus)
-(defconst gnus-version-number "0.39"
+(defconst gnus-version-number "0.40"
"Version number for this version of Gnus.")
(defconst gnus-version (format "Pterodactyl Gnus v%s" gnus-version-number)
2  lisp/nndoc.el
View
@@ -693,7 +693,7 @@ PARENT is the message-ID of the parent summary line, or nil for none."
(when (string-match ";[ \t\n]*name=\\([^ \t\n;]+\\)" content-type)
(setq subject (match-string 1 content-type)))
(when (string-match "boundary=\"?\\([^\"\n]*[^\" \t\n]\\)" content-type)
- (setq boundary-regexp (concat "\n--"
+ (setq boundary-regexp (concat "^--"
(regexp-quote
(match-string 1 content-type))
"\\(--\\)?[ \t]*\n"))))
11 lisp/nneething.el
View
@@ -342,10 +342,13 @@ If this variable is nil, no files will be excluded.")
(defun nneething-file-name (article)
"Return the file name of ARTICLE."
- (concat (file-name-as-directory nneething-address)
- (if (numberp article)
- (cadr (assq article nneething-map))
- article)))
+ (let ((dir (file-name-as-directory nneething-address))
+ fname)
+ (if (numberp article)
+ (if (setq fname (cadr (assq article nneething-map)))
+ (concat dir fname)
+ (make-temp-name (concat dir "nneething")))
+ (concat dir article))))
(provide 'nneething)
3  lisp/nnheader.el
View
@@ -337,7 +337,8 @@ on your system, you could say something like:
(let ((extra (mail-header-extra header)))
(while extra
(insert (symbol-name (caar extra))
- ": " (cdar extra) "\t"))))
+ ": " (cdar extra) "\t")
+ (pop extra))))
(insert "\n"))
(defun nnheader-insert-article-line (article)
5 lisp/nnml.el
View
@@ -576,8 +576,9 @@ all. This may very well take some time.")
(defun nnml-possibly-create-directory (group)
(let ((dir (nnmail-group-pathname group nnml-directory)))
- (make-directory (directory-file-name dir) t)
- (nnheader-message 5 "Creating mail directory %s" dir)))
+ (unless (file-exists-p dir)
+ (make-directory (directory-file-name dir) t)
+ (nnheader-message 5 "Creating mail directory %s" dir))))
(defun nnml-save-mail (group-art)
"Called narrowed to an article."
14 texi/gnus.texi
View
@@ -1,7 +1,7 @@
\input texinfo @c -*-texinfo-*-
@setfilename gnus
-@settitle Pterodactyl Gnus 0.39 Manual
+@settitle Pterodactyl Gnus 0.40 Manual
@synindex fn cp
@synindex vr cp
@synindex pg cp
@@ -318,7 +318,7 @@ into another language, under the above conditions for modified versions.
@tex
@titlepage
-@title Pterodactyl Gnus 0.39 Manual
+@title Pterodactyl Gnus 0.40 Manual
@author by Lars Magne Ingebrigtsen
@page
@@ -354,7 +354,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 Pterodactyl Gnus 0.39.
+This manual corresponds to Pterodactyl Gnus 0.40.
@end ifinfo
@@ -18295,6 +18295,14 @@ groups it has been crossposted to, or something. (Agent.)
`S D r' should allow expansion of aliases.
@item
+If point is on a group that appears multiple times in topics, and
+you press `l', point will move to the first instance of the group.
+
+@item
+The documentation should mention pop3.el, fetchmail, smtpmail and why
+po:username often fails.
+
+@item
Solve the halting problem.
@c TODO
6 texi/message.texi
View
@@ -1,7 +1,7 @@
\input texinfo @c -*-texinfo-*-
@setfilename message
-@settitle Pterodactyl Message 0.39 Manual
+@settitle Pterodactyl Message 0.40 Manual
@synindex fn cp
@synindex vr cp
@synindex pg cp
@@ -42,7 +42,7 @@ into another language, under the above conditions for modified versions.
@tex
@titlepage
-@title Pterodactyl Message 0.39 Manual
+@title Pterodactyl Message 0.40 Manual
@author by Lars Magne Ingebrigtsen
@page
@@ -83,7 +83,7 @@ Message mode buffers.
* Key Index:: List of Message mode keys.
@end menu
-This manual corresponds to Pterodactyl Message 0.39. Message is
+This manual corresponds to Pterodactyl Message 0.40. Message is
distributed with the Gnus distribution bearing the same version number
as this manual.
Please sign in to comment.
Something went wrong with that request. Please try again.