From a6d776566c5684cbb744094194bff37b74c94412 Mon Sep 17 00:00:00 2001 From: shuhei-k Date: Mon, 8 Dec 1997 01:50:34 +0000 Subject: [PATCH] Importing qgnus-0.18 --- lisp/ChangeLog | 92 ++++++++++++++++++++++++++++++++++++++++++++++++++++ lisp/dgnushack.el | 2 +- lisp/gnus-agent.el | 10 ++++-- lisp/gnus-art.el | 6 ++-- lisp/gnus-cite.el | 2 +- lisp/gnus-ems.el | 23 +++++++------ lisp/gnus-group.el | 1 + lisp/gnus-mh.el | 13 +++++--- lisp/gnus-nocem.el | 4 +-- lisp/gnus-picon.el | 3 +- lisp/gnus-start.el | 7 ++-- lisp/gnus-sum.el | 48 ++++++++++++++------------- lisp/gnus-util.el | 3 +- lisp/gnus.el | 8 +++-- lisp/lpath.el | 11 +++++-- lisp/message.el | 1 - lisp/nndraft.el | 2 +- lisp/nnheader.el | 2 +- lisp/nnmail.el | 2 +- lisp/nnml.el | 5 ++- lisp/nntp.el | 6 ++-- lisp/nnweb.el | 4 +-- lisp/pop3.el | 31 +++++++++--------- lisp/smiley.el | 4 +++ texi/ChangeLog | 25 ++++++++++++++ texi/gnus.texi | 6 ++-- texi/message.texi | 14 ++++---- 27 files changed, 240 insertions(+), 95 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b626cc5..9c21894 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,95 @@ +Sat Dec 6 17:40:33 1997 Lars Magne Ingebrigtsen + + * gnus.el: Quassia Gnus v0.18 is released. + +Sat Dec 6 17:27:04 1997 Kim-Minh Kaplan + + * gnus-picon.el (gnus-picons-remove): Race condition. + +Sat Dec 6 17:23:26 1997 Christian von Roques + + * gnus-start.el (gnus-read-descriptions-file): Fix + enable-multibyte-characters. + +1997-12-05 Dave Love + + * gnus-nocem.el (gnus-nocem-message-wanted-p): Fix paren typpo. + (gnus-nocem-issuers): Allow sexp alternative in :type for alists. + +1997-12-05 Dave Love + + * gnus-art.el (gnus-visible-headers): Add X-sent:. + +Sat Dec 6 17:16:28 1997 Lars Balker Rasmussen + + * gnus-art.el (article-make-date-line): Don't add extra newlines. + +1997-11-27 MORIOKA Tomohiko + + * nnmail.el (nnmail-file-coding-system): Use `raw-text' in + default. + + * nnheader.el (nnheader-file-coding-system): Use `raw-text' in + default. + +Sat Dec 6 17:04:40 1997 Kim-Minh Kaplan + + * nnml.el (nnml-parse-head): Out-of-bounds fix. + + * nndraft.el (nndraft-request-associate-buffer): Get proper file + name. + +Sat Dec 6 15:35:37 1997 Gary D. Foster + + * gnus-group.el: Added backspace. + +Thu Nov 27 19:56:59 1997 Lars Magne Ingebrigtsen + + * gnus-agent.el (gnus-summary-set-agent-mark): Remove marks + properly. + +1997-11-27 Christoph Wedler + + * smiley.el (smiley-buffer): Provide `help-echo'. + +Thu Nov 27 17:33:45 1997 Lars Magne Ingebrigtsen + + * gnus-util.el (gnus-output-to-rmail): Always save buffer. + + * nntp.el (nntp-close-server): Don't sleep for me, Argentina. + (nntp-request-close): You neither. + +1997-11-19 Per Abrahamsen + + * message.el (message-header-lines): New widget. + (message-default-headers): Use it. + (message-default-mail-headers): Use it. + (message-default-news-headers): Use it. + +1997-11-24 Andreas Jaeger + + * gnus-start.el (gnus-read-descriptions-file): Add missing quote. + +Wed Nov 26 18:19:29 1997 Lars Magne Ingebrigtsen + + * nnweb.el (nnweb-type-definition): Rescued dejanewsold. + + * gnus-mh.el (gnus-summary-save-in-folder): Reverted to old + version. + + * gnus-sum.el (gnus-kill-or-deaden-summary): Save excursion. + + * gnus.el: Only require gnus-load in Emacsen 19. + + * gnus-start.el (gnus-setup-news): Always push archive server. + + * gnus-sum.el (gnus-read-header): Would bug out on sparse + articles. + +Wed Nov 26 17:50:41 1997 Kurt Swanson + + * gnus-ems.el (gnus-mule-cite-add-face): Work. + Wed Nov 26 17:40:57 1997 Lars Magne Ingebrigtsen * gnus.el: Quassia Gnus v0.17 is released. diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el index aad6016..a03b1f6 100644 --- a/lisp/dgnushack.el +++ b/lisp/dgnushack.el @@ -32,7 +32,7 @@ (require 'bytecomp) (push "~/lisp/custom" load-path) (push "." load-path) -(require 'lpath) +(load "./lpath.el") (defalias 'device-sound-enabled-p 'ignore) (defalias 'play-sound-file 'ignore) diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index 7a3ad16..66a0729 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -412,9 +412,13 @@ the actual number of articles toggled is returned." (let ((unmark (if (and (not (null unmark)) (not (eq t unmark))) (memq article gnus-newsgroup-downloadable) unmark))) - (setq gnus-newsgroup-downloadable - (delq article gnus-newsgroup-downloadable)) - (unless unmark + (if unmark + (progn + (setq gnus-newsgroup-downloadable + (delq article gnus-newsgroup-downloadable)) + (push article gnus-newsgroup-undownloaded)) + (setq gnus-newsgroup-undownloaded + (delq article gnus-newsgroup-undownloaded)) (push article gnus-newsgroup-downloadable)) (gnus-summary-update-mark (if unmark gnus-undownloaded-mark gnus-downloadable-mark) diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index fdf779f..b0a2c23 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -104,7 +104,7 @@ If `gnus-visible-headers' is non-nil, this variable will be ignored." :group 'gnus-article-hiding) (defcustom gnus-visible-headers - "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-From" + "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-From:\\|X-Sent:" "All headers that do not match this regexp will be hidden. This variable can also be a list of regexp of headers to remain visible. If this variable is non-nil, `gnus-ignored-headers' will be ignored." @@ -1362,9 +1362,9 @@ how much time has lapsed since DATE." num prev) (cond ((null real-time) - "X-Sent: Unknown\n") + "X-Sent: Unknown") ((zerop sec) - "X-Sent: Now\n") + "X-Sent: Now") (t (concat "X-Sent: " diff --git a/lisp/gnus-cite.el b/lisp/gnus-cite.el index 4650599..0a1c4c5 100644 --- a/lisp/gnus-cite.el +++ b/lisp/gnus-cite.el @@ -571,7 +571,7 @@ See also the documentation for `gnus-article-highlight-citation'." (defun gnus-cite-parse-maybe (&optional force) ;; Parse if the buffer has changes since last time. - (if (equal gnus-cite-article gnus-article-current) + (if (and (not force) (equal gnus-cite-article gnus-article-current)) () ;;Reset parser information. (setq gnus-cite-prefix-alist nil diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el index 510e8e4..b9c9b1d 100644 --- a/lisp/gnus-ems.el +++ b/lisp/gnus-ems.el @@ -56,16 +56,19 @@ (let ((inhibit-point-motion-hooks t) from to) (goto-line number) - (if (boundp 'MULE) - (forward-char (chars-in-string prefix)) - (forward-char (length prefix))) - (skip-chars-forward " \t") - (setq from (point)) - (end-of-line 1) - (skip-chars-backward " \t") - (setq to (point)) - (when (< from to) - (gnus-overlay-put (gnus-make-overlay from to) 'face face))))) + (unless (eobp) ; Sometimes things become confused (broken). + (if (boundp 'MULE) + (forward-char (chars-in-string prefix)) + (forward-char (length prefix))) + (skip-chars-forward " \t") + (setq from (point)) + (end-of-line 1) + (skip-chars-backward " \t") + (setq to (point)) + (when (< from to) + (push (setq overlay (gnus-make-overlay from to)) + gnus-cite-overlay-list) + (gnus-overlay-put (gnus-make-overlay from to) 'face face)))))) (defun gnus-mule-max-width-function (el max-width) (` (let* ((val (eval (, el))) diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index bd2cc6f..e6623ba 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -428,6 +428,7 @@ ticked: The number of ticked articles." "p" gnus-group-prev-unread-group "\177" gnus-group-prev-unread-group [delete] gnus-group-prev-unread-group + [backspace] gnus-group-prev-unread-group "N" gnus-group-next-group "P" gnus-group-prev-group "\M-n" gnus-group-next-unread-group-same-level diff --git a/lisp/gnus-mh.el b/lisp/gnus-mh.el index ce15a01..0cf74b1 100644 --- a/lisp/gnus-mh.el +++ b/lisp/gnus-mh.el @@ -55,10 +55,15 @@ Optional argument FOLDER specifies folder name." ;; Thanks to yuki@flab.Fujitsu.JUNET and ohm@kaba.junet. (mh-find-path) (let ((folder - (gnus-read-save-file-name - "Save %s in file:" folder - gnus-folder-save-name gnus-newsgroup-name - gnus-current-headers 'gnus-newsgroup-last-folder)) + (cond ((and (eq folder 'default) + gnus-newsgroup-last-folder) + gnus-newsgroup-last-folder) + (folder folder) + (t (mh-prompt-for-folder + "Save article in" + (funcall gnus-folder-save-name gnus-newsgroup-name + gnus-current-headers gnus-newsgroup-last-folder) + t)))) (errbuf (get-buffer-create " *Gnus rcvstore*")) ;; Find the rcvstore program. (exec-path (if mh-lib (cons mh-lib exec-path) exec-path))) diff --git a/lisp/gnus-nocem.el b/lisp/gnus-nocem.el index 80f04b0..a1d4a99 100644 --- a/lisp/gnus-nocem.el +++ b/lisp/gnus-nocem.el @@ -56,7 +56,7 @@ This can also be a list of `(ISSUER CONDITIONS)' elements." :group 'gnus-nocem - :type '(repeat string)) + :type '(repeat (choice string sexp))) (defcustom gnus-nocem-directory (nnheader-concat gnus-article-save-directory "NoCeM/") @@ -228,7 +228,7 @@ active file." (while (setq condition (pop conditions)) (cond ((stringp condition) - (setq wanted (string-match condition) type)) + (setq wanted (string-match condition type))) ((and (consp condition) (eq (car condition) 'not) (stringp (cadr condition))) diff --git a/lisp/gnus-picon.el b/lisp/gnus-picon.el index ed11b59..ac8ad2f 100644 --- a/lisp/gnus-picon.el +++ b/lisp/gnus-picon.el @@ -184,7 +184,8 @@ This function is careful to set it to nil before removing anything so that asynchronous process don't get crazy." (setq gnus-picons-jobs-alist (remassq symbol gnus-picons-jobs-alist)) ;; notify running job that it may have been preempted - (if (eq (car gnus-picons-job-already-running) symbol) + (if (and (listp gnus-picons-job-already-running) + (eq (car gnus-picons-job-already-running) symbol)) (setq gnus-picons-job-already-running t)) ;; clear all annotations (mapc (function (lambda (item) diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el index f346f92..3b5ffd0 100644 --- a/lisp/gnus-start.el +++ b/lisp/gnus-start.el @@ -856,9 +856,8 @@ If LEVEL is non-nil, the news will be set up at level LEVEL." (when gnus-message-archive-method (setq gnus-server-alist (delq (assoc "archive" gnus-server-alist) gnus-server-alist)) - (when (gnus-archive-server-wanted-p) - (push (cons "archive" gnus-message-archive-method) - gnus-server-alist))) + (push (cons "archive" gnus-message-archive-method) + gnus-server-alist)) ;; If we don't read the complete active file, we fill in the ;; hashtb here. @@ -2484,7 +2483,7 @@ If FORCE is non-nil, the .newsrc file is read." (let ((str (buffer-substring (point) (progn (end-of-line) (point)))) (coding - (and (boundp enable-multibyte-characters) + (and (boundp 'enable-multibyte-characters) enable-multibyte-characters (gnus-mule-get-coding-system (symbol-name group))))) (if coding diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index daaad7f..2b9b477 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -1116,6 +1116,7 @@ increase the score of each group you read." " " gnus-summary-next-page "\177" gnus-summary-prev-page [delete] gnus-summary-prev-page + [backspace] gnus-summary-prev-page "\r" gnus-summary-scroll-up "n" gnus-summary-next-unread-article "p" gnus-summary-prev-unread-article @@ -5220,25 +5221,26 @@ which existed when entering the ephemeral is reset." (defun gnus-kill-or-deaden-summary (buffer) "Kill or deaden the summary BUFFER." - (when (and (buffer-name buffer) - (not gnus-single-article-buffer)) - (save-excursion - (set-buffer buffer) - (gnus-kill-buffer gnus-article-buffer) - (gnus-kill-buffer gnus-original-article-buffer))) - (cond (gnus-kill-summary-on-exit - (when (and gnus-use-trees - (and (get-buffer buffer) - (buffer-name (get-buffer buffer)))) + (save-excursion + (when (and (buffer-name buffer) + (not gnus-single-article-buffer)) + (save-excursion + (set-buffer buffer) + (gnus-kill-buffer gnus-article-buffer) + (gnus-kill-buffer gnus-original-article-buffer))) + (cond (gnus-kill-summary-on-exit + (when (and gnus-use-trees + (and (get-buffer buffer) + (buffer-name (get-buffer buffer)))) + (save-excursion + (set-buffer (get-buffer buffer)) + (gnus-tree-close gnus-newsgroup-name))) + (gnus-kill-buffer buffer)) + ((and (get-buffer buffer) + (buffer-name (get-buffer buffer))) (save-excursion - (set-buffer (get-buffer buffer)) - (gnus-tree-close gnus-newsgroup-name))) - (gnus-kill-buffer buffer)) - ((and (get-buffer buffer) - (buffer-name (get-buffer buffer))) - (save-excursion - (set-buffer buffer) - (gnus-deaden-summary))))) + (set-buffer buffer) + (gnus-deaden-summary)))))) (defun gnus-summary-wake-up-the-dead (&rest args) "Wake up the dead summary buffer." @@ -8679,10 +8681,12 @@ save those articles instead." ;; previous entry in the thread hashtb. (when (and header (gnus-summary-article-sparse-p (mail-header-number header))) - (let ((thread (gnus-gethash - (gnus-parent-id (mail-header-references header)) - gnus-newsgroup-dependencies))) - (delq (assq header thread) thread))) + (let* ((parent (gnus-parent-id (mail-header-references header))) + (thread + (and parent + (gnus-gethash parent gnus-newsgroup-dependencies)))) + (when thread + (delq (assq header thread) thread)))) ;; We have to really fetch the header to this article. (save-excursion (set-buffer nntp-server-buffer) diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el index 8cca4a9..2a3830a 100644 --- a/lisp/gnus-util.el +++ b/lisp/gnus-util.el @@ -760,7 +760,8 @@ with potentially long computations." (narrow-to-region (point) (point-max)) (goto-char (1+ (point-min))) (rmail-count-new-messages t) - (rmail-show-message msg)))))) + (rmail-show-message msg)) + (save-buffer))))) (kill-buffer tmpbuf))) (defun gnus-output-to-mail (filename &optional ask) diff --git a/lisp/gnus.el b/lisp/gnus.el index b9e261a..33c1fdf 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -31,7 +31,9 @@ (eval-when-compile (require 'cl)) (require 'custom) -(require 'gnus-load) +(eval-and-compile + (if (< emacs-major-version 20) + (require 'gnus-load))) (require 'message) (defgroup gnus nil @@ -244,7 +246,7 @@ is restarted, and sometimes reloaded." :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) -(defconst gnus-version-number "0.17" +(defconst gnus-version-number "0.18" "Version number for this version of Gnus.") (defconst gnus-version (format "Quassia Gnus v%s" gnus-version-number) @@ -1745,7 +1747,7 @@ This restriction may disappear in later versions of Gnus." (defun gnus-suppress-keymap (keymap) (suppress-keymap keymap) - (let ((keys `([delete] "\177" "\M-u"))) ;gnus-mouse-2 + (let ((keys `([backspace] [delete] "\177" "\M-u"))) ;gnus-mouse-2 (while keys (define-key keymap (pop keys) 'undefined)))) diff --git a/lisp/lpath.el b/lisp/lpath.el index bbf43f6..288dc8a 100644 --- a/lisp/lpath.el +++ b/lisp/lpath.el @@ -28,7 +28,7 @@ set-face-stipple mail-abbrevs-setup char-int make-char-table set-char-table-range font-create-object x-color-values widget-make-intangible error-message-string - w3-form-encode-xwfu md5 gnus-mule-get-coding-system + w3-form-encode-xwfu gnus-mule-get-coding-system decode-coding-string)) (maybe-bind '(global-face-data mark-active transient-mark-mode mouse-selection-click-count @@ -36,7 +36,8 @@ font-lock-defaults user-full-name user-login-name gnus-newsgroup-name gnus-article-x-face-too-ugly mail-mode-hook enable-multibyte-characters))) - (defvar browse-url-browser-function nil) + (maybe-bind '(mail-mode-hook + enable-multibyte-characters browse-url-browser-function)) (maybe-fbind '(color-instance-rgb-components make-color-instance color-instance-name specifier-instance device-type device-class get-popup-menu-response event-object @@ -48,9 +49,13 @@ widget-make-intangible glyphp make-glyph set-glyph-image set-glyph-property event-glyph glyph-property event-point device-on-window-system-p make-gui-button Info-goto-node - pp-to-string color-name))) + pp-to-string color-name + gnus-mule-get-coding-system decode-coding-string))) (setq load-path (cons "." load-path)) (require 'custom) +(defun md5 (a &optional b c) + ) + (provide 'lpath) diff --git a/lisp/message.el b/lisp/message.el index 1c211aa..13878aa 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -539,7 +539,6 @@ If stringp, use this; if non-nil, use no host name (user name only)." (define-widget 'message-header-lines 'text "All header lines must be LFD terminated." :valid-regexp "^\\'" - :format "%t:\n%v" :error "All header lines must be newline terminated") (defcustom message-default-headers "" diff --git a/lisp/nndraft.el b/lisp/nndraft.el index 4beea9f..8458aa0 100644 --- a/lisp/nndraft.el +++ b/lisp/nndraft.el @@ -156,7 +156,7 @@ (setq article (nndraft-request-accept-article group (nnoo-current-server 'nndraft) t 'noinsert)) (setq file (nndraft-article-filename article))) - (setq buffer-file-name file) + (setq buffer-file-name (expand-file-name file)) (setq buffer-auto-save-file-name (make-auto-save-file-name)) (clear-visited-file-modtime) article)) diff --git a/lisp/nnheader.el b/lisp/nnheader.el index e9b66fa..5b7da45 100644 --- a/lisp/nnheader.el +++ b/lisp/nnheader.el @@ -746,7 +746,7 @@ If FILE, find the \".../etc/PACKAGE\" file instead." (ange-ftp-re-read-dir path))))) ;; 1997/5/4 by MORIOKA Tomohiko -(defvar nnheader-file-coding-system nil +(defvar nnheader-file-coding-system 'raw-text "Coding system used in file backends of Gnus.") (defun nnheader-insert-file-contents (filename &optional visit beg end replace) diff --git a/lisp/nnmail.el b/lisp/nnmail.el index dc112f2..1026dae 100644 --- a/lisp/nnmail.el +++ b/lisp/nnmail.el @@ -477,7 +477,7 @@ parameter. It should return nil, `warn' or `delete'." (mail-send-and-exit nil)) ;; 1997/5/4 by MORIOKA Tomohiko -(defvar nnmail-file-coding-system nil +(defvar nnmail-file-coding-system 'raw-text "Coding system used in nnmail.") (defun nnmail-find-file (file) diff --git a/lisp/nnml.el b/lisp/nnml.el index eb36725..b56e578 100644 --- a/lisp/nnml.el +++ b/lisp/nnml.el @@ -659,11 +659,10 @@ all. This may very well take some time.") "Parse the head of the current buffer." (save-excursion (save-restriction - (goto-char (point-min)) (unless (zerop (buffer-size)) (narrow-to-region - (point) - (1- (or (search-forward "\n\n" nil t) (point-max))))) + (goto-char (point-min)) + (if (search-forward "\n\n" nil t) (1- (point)) (point-max)))) ;; Fold continuation lines. (goto-char (point-min)) (while (re-search-forward "\\(\r?\n[ \t]+\\)+" nil t) diff --git a/lisp/nntp.el b/lisp/nntp.el index 8c1ec8c..ff16e62 100644 --- a/lisp/nntp.el +++ b/lisp/nntp.el @@ -635,7 +635,8 @@ server there that you can connect to. See also `nntp-open-connection-function'" (set-process-sentinel process nil) (ignore-errors (nntp-send-string process "QUIT") - (sleep-for 1))) + (unless (eq nntp-open-connection-function 'nntp-open-network-stream) + (sleep-for 1)))) (when (buffer-name (process-buffer process)) (kill-buffer (process-buffer process)))) (nnoo-close-server 'nntp))) @@ -647,7 +648,8 @@ server there that you can connect to. See also `nntp-open-connection-function'" (set-process-sentinel process nil) (ignore-errors (nntp-send-string process "QUIT") - (sleep-for 1))) + (unless (eq nntp-open-connection-function 'nntp-open-network-stream) + (sleep-for 1)))) (when (buffer-name (process-buffer process)) (kill-buffer (process-buffer process)))))) diff --git a/lisp/nnweb.el b/lisp/nnweb.el index 8d217f7..543c3d8 100644 --- a/lisp/nnweb.el +++ b/lisp/nnweb.el @@ -53,13 +53,13 @@ (article . nnweb-dejanews-wash-article) (map . nnweb-dejanews-create-mapping) (search . nnweb-dejanews-search) - (address . "http://xp9.dejanews.com/dnquery.xp") + (address . "http://x5.dejanews.com/dnquery.xp") (identifier . nnweb-dejanews-identity)) (dejanewsold (article . nnweb-dejanews-wash-article) (map . nnweb-dejanews-create-mapping) (search . nnweb-dejanewsold-search) - (address . "http://xp9.dejanews.com/dnquery.xp") + (address . "http://x5.dejanews.com/dnquery.xp") (identifier . nnweb-dejanews-identity)) (reference (article . nnweb-reference-wash-article) diff --git a/lisp/pop3.el b/lisp/pop3.el index 944e2f1..276fbfc 100644 --- a/lisp/pop3.el +++ b/lisp/pop3.el @@ -4,7 +4,7 @@ ;; Author: Richard L. Pieri ;; Keywords: mail, pop3 -;; Version: 1.3h +;; Version: 1.3j ;; This file is part of GNU Emacs. @@ -37,7 +37,7 @@ (require 'mail-utils) (provide 'pop3) -(defconst pop3-version "1.3h") +(defconst pop3-version "1.3j") (defvar pop3-maildrop (or user-login-name (getenv "LOGNAME") (getenv "USER") nil) "*POP3 maildrop.") @@ -60,9 +60,6 @@ values are 'apop.") "Timestamp returned when initially connected to the POP server. Used for APOP authentication.") -(defvar pop3-movemail-file-coding-system nil - "Crashbox made by pop3-movemail with this coding system.") - (defvar pop3-read-point nil) (defvar pop3-debug nil) @@ -94,8 +91,7 @@ Used for APOP authentication.") (pop3-retr process n crashbuf) (save-excursion (set-buffer crashbuf) - (let ((coding-system-for-write pop3-movemail-file-coding-system)) - (append-to-file (point-min) (point-max) crashbox)) + (append-to-file (point-min) (point-max) crashbox) (set-buffer (process-buffer process)) (while (> (buffer-size) 5000) (goto-char (point-min)) @@ -118,10 +114,11 @@ Returns the process associated with the connection." (process)) (save-excursion (set-buffer process-buffer) - (erase-buffer)) + (erase-buffer) + (setq pop3-read-point (point-min)) + ) (setq process (open-network-stream "POP" process-buffer mailhost port)) - (setq pop3-read-point (point-min)) (let ((response (pop3-read-response process t))) (setq pop3-timestamp (substring response (or (string-match "<" response) 0) @@ -298,13 +295,15 @@ This function currently does nothing.") (set-buffer (process-buffer process)) (while (not (re-search-forward "^\\.\r\n" nil t)) (accept-process-output process 3) - ;; bill@att.com ... to save wear and tear on the heap - (if (> (buffer-size) 20000) (sleep-for 1)) - (if (> (buffer-size) 50000) (sleep-for 1)) - (if (> (buffer-size) 100000) (sleep-for 1)) - (if (> (buffer-size) 200000) (sleep-for 1)) - (if (> (buffer-size) 500000) (sleep-for 1)) - ;; bill@att.com +; ;; bill@att.com ... to save wear and tear on the heap +; (if (> (buffer-size) 20000) (sleep-for 1)) +; (if (> (buffer-size) 50000) (sleep-for 1)) +; (if (> (buffer-size) 100000) (sleep-for 1)) +; (if (> (buffer-size) 200000) (sleep-for 1)) +; (if (> (buffer-size) 500000) (sleep-for 1)) +; ;; bill@att.com + ;; condensed into: + (if (> (buffer-size) 20000) (sleep-for (/ (buffer-size) 20000))) (goto-char start)) (setq pop3-read-point (point-marker)) ;; this code does not seem to work for some POP servers... diff --git a/lisp/smiley.el b/lisp/smiley.el index 64576db..ac9566c 100644 --- a/lisp/smiley.el +++ b/lisp/smiley.el @@ -275,6 +275,10 @@ above them." (set-extent-property ant 'smiley-extent ext) (set-extent-property ext 'smiley-annotation ant) ;; Help + (set-extent-property ext 'help-echo + "button2 toggles smiley, button3 pops up menu") + (set-extent-property ant 'help-echo + "button2 toggles smiley, button3 pops up menu") (set-extent-property ext 'balloon-help "Mouse button2 - toggle smiley Mouse button3 - menu") diff --git a/texi/ChangeLog b/texi/ChangeLog index 99156dd..ceeaf32 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,28 @@ +1997-11-26 SL Baur + + * message.texi (Insertion): Fix typo. + (Responses): Ditto. + (Reply): Ditto. + +Wed Nov 26 12:57:00 1997 Lars Magne Ingebrigtsen + + * message.texi (Insertion): Addition. + +Wed Nov 26 12:55:15 1997 Hallvard B. Furuseth + + * message.texi (Insertion): Addition. + +Wed Nov 26 12:36:08 1997 Lars Magne Ingebrigtsen + + * message.texi (Responses): New. + (Appendices): New. + + * gnus.texi (Group Info): Fix. + +Tue Nov 25 17:53:55 1997 Lars Magne Ingebrigtsen + + * gnus.texi (Article Date): Addition. + Mon Nov 24 16:01:20 1997 Lars Magne Ingebrigtsen * gnus.texi (Faces & Fonts): New. diff --git a/texi/gnus.texi b/texi/gnus.texi index a4df6ad..f799844 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename gnus -@settitle Quassia Gnus 0.17 Manual +@settitle Quassia Gnus 0.18 Manual @synindex fn cp @synindex vr cp @synindex pg cp @@ -313,7 +313,7 @@ into another language, under the above conditions for modified versions. @tex @titlepage -@title Quassia Gnus 0.17 Manual +@title Quassia Gnus 0.18 Manual @author by Lars Magne Ingebrigtsen @page @@ -349,7 +349,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 Quassia Gnus 0.17. +This manual corresponds to Quassia Gnus 0.18. @end ifinfo diff --git a/texi/message.texi b/texi/message.texi index e3db9a5..8b53f93 100644 --- a/texi/message.texi +++ b/texi/message.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename message -@settitle Message 0.17 Manual +@settitle Message 0.18 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 0.17 Manual +@title Message 0.18 Manual @author by Lars Magne Ingebrigtsen @page @@ -80,7 +80,7 @@ Message mode buffers. * Key Index:: List of Message mode keys. @end menu -This manual corresponds to Message 0.17. Message is distributed with +This manual corresponds to Message 0.18. Message is distributed with the Gnus distribution bearing the same version number as this manual has. @@ -140,7 +140,7 @@ reply to the message in the current buffer. @vindex message-reply-to-function Message uses the normal methods to determine where replies are to go -(@pxref{Responding}), but you can change the behavior to suit your needs +(@pxref{Responses}), but you can change the behavior to suit your needs by fiddling with the @code{message-reply-to-function} variable. If you want the replies to go to the @code{Sender} instead of the @@ -441,7 +441,7 @@ Function called to insert the citation line. The default is that look like: @example -Hallvard B Furuseth writes: +Hallvard B Furuseth writes: @end example Point will be at the beginning of the body of the message when this @@ -1204,7 +1204,7 @@ corresponding mail variables. To determine where a message is to go, the following algorithm is used by default. -@table @def +@table @dfn @item reply A @dfn{reply} is when you want to respond @emph{just} to the person who sent the message via mail. There will only be one recipient. To @@ -1224,7 +1224,7 @@ mentioned in the message you are responded to. All mailboxes from the following headers will be concatenated to form the outgoing @code{To}/@code{Cc} headers: -@table +@table @code @item From (unless there's a @code{Reply-To}, in which case that is used instead). -- 1.7.10.4