+Mon Feb 16 20:22:04 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
+
+ * gnus.el: Quassia Gnus v0.28 is released.
+
+1998-02-16 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+
+ * message.el (message-dont-send): Make sure the article really is
+ saved.
+
+ * nnmail.el (nnmail-purge-split-history): Alist; not a list of
+ alists.
+
+1998-02-16 Hrvoje Niksic <hniksic@srce.hr>
+
+ * message.el (message-kill-to-signature): Do the right thing when
+ there is no signature.
+
+1998-02-16 Hrvoje Niksic <hniksic@srce.hr>
+
+ * message.el (message-elide-elipsis): Add type and group.
+ (message-elide-region): Docfix.
+
+1998-02-16 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+
+ * gnus-util.el (gnus-run-hooks): Use unwind-protect instead of
+ save-excursion.
+
+1998-02-16 Per Abrahamsen <abraham@dina.kvl.dk>
+
+ * nntp.el (nntp-authinforc-file): Customized.
+
+Mon Feb 16 03:18:33 1998 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+
+ * gnus-nocem.el (gnus-nocem-unwanted-article-p): Don't look if the
+ hashtable doesn't exist.
+
+ * gnus-start.el (gnus-ask-server-for-new-groups): Make sure the
+ killed groups hashtable exists.
+
+Sun Feb 15 23:02:11 1998 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+
+ * nntp.el (nntp-authinforc-file): Changed name and default.
+ (nntp-send-authinfo): Use it.
+
Sun Feb 15 19:50:10 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* gnus.el: Quassia Gnus v0.27 is released.
(defun gnus-nocem-unwanted-article-p (id)
"Say whether article ID in the current group is wanted."
- (gnus-gethash id gnus-nocem-hashtb))
+ (and gnus-nocem-hashtb
+ (gnus-gethash id gnus-nocem-hashtb)))
(provide 'gnus-nocem)
(new-date (current-time-string))
group new-newsgroups got-new method hashtb
gnus-override-subscribe-method)
+ (unless gnus-killed-hashtb
+ (gnus-make-hashtable-from-killed))
;; Go through both primary and secondary select methods and
;; request new newsgroups.
(while (setq method (gnus-server-get-method nil (pop methods)))
(defun gnus-run-hooks (&rest funcs)
"Does the same as `run-hooks', but saves excursion."
- (save-excursion
- (apply 'run-hooks funcs)))
+ (let ((buf (current-buffer)))
+ (unwind-protect
+ (apply 'run-hooks funcs)
+ (set-buffer buf))))
;;;
;;; .netrc and .authinforc parsing
:link '(custom-manual "(gnus)Exiting Gnus")
:group 'gnus)
-(defconst gnus-version-number "0.27"
+(defconst gnus-version-number "0.28"
"Version number for this version of Gnus.")
(defconst gnus-version (format "Quassia Gnus v%s" gnus-version-number)
:group 'message-various)
(defcustom message-elide-elipsis "\n[...]\n\n"
- "*The string which is inserted for elided text.")
+ "*The string which is inserted for elided text."
+ :type 'string
+ :group 'message-various)
(defcustom message-interactive nil
"*Non-nil means when sending a message wait for and display errors.
(interactive)
(let ((point (point)))
(message-goto-signature)
- (forward-line -2)
+ (unless (eobp)
+ (forward-line -2))
(kill-region point (point))
(unless (bolp)
(insert "\n"))))
(or (bolp) (insert "\n")))))
(defun message-elide-region (b e)
- "Elide the text between point and mark. An ellipsis (from
-message-elide-elipsis) will be inserted where the text was killed."
+ "Elide the text between point and mark.
+An ellipsis (from `message-elide-elipsis') will be inserted where the
+text was killed."
(interactive "r")
(kill-region b e)
(unless (bolp)
(defun message-dont-send ()
"Don't send the message you have been editing."
(interactive)
+ (set-buffer-modified-p t)
(save-buffer)
(let ((actions message-postpone-actions))
(message-bury (current-buffer))
(princ "\n")))))
(defun nnmail-purge-split-history (group)
- (let ((history nnmail-split-history))
+ (let ((history nnmail-split-history)
+ prev)
(while history
- (let ((pairs (car history)))
- (while pairs
- (if (string= (car (car pairs)) group)
- (setcar pairs (cdr pairs))
- (setq pairs (cdr pairs)))))
- (setq history (cdr history))))
- (setq nnmail-split-history (delq nil nnmail-split-history)))
+ (if (string= (caar history) group)
+ (if prev
+ (setcdr prev (cdr history))
+ (setq nnmail-split-history (cdr history)))
+ (setq prev history
+ history (cdr history))))))
(defun nnmail-new-mail-p (group)
"Say whether GROUP has new mail."
(defvoo nntp-coding-system-for-write 'binary
"*Coding system to write to NNTP.")
-(defvar nntp-netrc-file "~/.netrc"
- "*The location of the file containing authinfo information.")
+(defcustom nntp-authinforc-file "~/.authinforc"
+ "Docstring."
+ :type
+ '(choice file
+ (repeat :tag "Entries"
+ :menu-tag "Inline"
+ (list :format "%v"
+ :value ("" ("login" . "") ("password" . ""))
+ (string :tag "Host")
+ (checklist :inline t
+ (cons :format "%v"
+ (const :format "" "login")
+ (string :format "Login: %v"))
+ (cons :format "%v"
+ (const :format "" "password")
+ (string :format "Password: %v")))))))
\f
(defun nntp-send-authinfo ()
"Send the AUTHINFO to the nntp server.
This function is supposed to be called from `nntp-server-opened-hook'.
-It will look in the \"~/.netrc\" file for matching entries. If
+It will look in the \"~/.authinforc\" file for matching entries. If
nothing suitable is found there, it will prompt for a user name
and a password."
- (let* ((list (gnus-parse-netrc nntp-netrc-file))
+ (let* ((list (gnus-parse-netrc nntp-authinforc-file))
(alist (gnus-netrc-machine list nntp-address))
(user (gnus-netrc-get alist "login"))
(passwd (gnus-netrc-get alist "password")))
+Sun Feb 15 23:04:02 1998 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+
+ * gnus.texi (NNTP): Change.
+
Sat Feb 14 17:46:33 1998 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
* gnus.texi (Virtual Groups): Fix.
\input texinfo @c -*-texinfo-*-
@setfilename gnus
-@settitle Quassia Gnus 0.27 Manual
+@settitle Quassia Gnus 0.28 Manual
@synindex fn cp
@synindex vr cp
@synindex pg cp
@tex
@titlepage
-@title Quassia Gnus 0.27 Manual
+@title Quassia Gnus 0.28 Manual
@author by Lars Magne Ingebrigtsen
@page
spool or your mbox file. All at the same time, if you want to push your
luck.
-This manual corresponds to Quassia Gnus 0.27.
+This manual corresponds to Quassia Gnus 0.28.
@end ifinfo
@item nntp-authinfo-function
@vindex nntp-authinfo-function
@findex nntp-send-authinfo
-@vindex nntp-netrc-file
+@vindex nntp-authinforc-file
This function will be used to send @samp{AUTHINFO} to the @sc{nntp}
server. The default function is @code{nntp-send-authinfo}, which looks
-through your @file{~/.netrc} (or whatever you've set the
-@code{nntp-netrc-file} variable to) for applicable entries. If none are
-found, it will prompt you for a login name and a password. The format
-of the @file{~/.netrc} file is defined in the @code{ftp} manual page,
+through your @file{~/.authinforc} (or whatever you've set the
+@code{nntp-authinforc-file} variable to) for applicable entries. If
+none are found, it will prompt you for a login name and a password. The
+format of the @file{~/.authinforc} file is the same as the @code{ftp}
+@file{~/.netrc} file, which is defined in the @code{ftp} manual page,
but here are the salient facts:
@enumerate
\input texinfo @c -*-texinfo-*-
@setfilename message
-@settitle Message 0.27 Manual
+@settitle Message 0.28 Manual
@synindex fn cp
@synindex vr cp
@synindex pg cp
@tex
@titlepage
-@title Message 0.27 Manual
+@title Message 0.28 Manual
@author by Lars Magne Ingebrigtsen
@page
* Key Index:: List of Message mode keys.
@end menu
-This manual corresponds to Message 0.27. Message is distributed with
+This manual corresponds to Message 0.28. Message is distributed with
the Gnus distribution bearing the same version number as this manual
has.
projects / elisp / gnus.git- / commitdiff