Importing qgnus-0.18

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b626cc5..9c21894 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,95 @@
+Sat Dec  6 17:40:33 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+
+       * gnus.el: Quassia Gnus v0.18 is released.
+
+Sat Dec  6 17:27:04 1997  Kim-Minh Kaplan  <KimMinh.Kaplan@Utopia.EUnet.fr>
+
+       * gnus-picon.el (gnus-picons-remove): Race condition.
+
+Sat Dec  6 17:23:26 1997  Christian von Roques  <roques@scalar.pond.sub.org>
+
+       * gnus-start.el (gnus-read-descriptions-file): Fix
+       enable-multibyte-characters. 
+
+1997-12-05  Dave Love  <d.love@dl.ac.uk>
+
+       * 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  <d.love@dl.ac.uk>
+
+       * gnus-art.el (gnus-visible-headers): Add X-sent:.
+
+Sat Dec  6 17:16:28 1997  Lars Balker Rasmussen  <lbr@mjolner.dk>
+
+       * gnus-art.el (article-make-date-line): Don't add extra newlines. 
+
+1997-11-27  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * 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  <KimMinh.Kaplan@utopia.eunet.fr>
+
+       * 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  <Gary.Foster@Corp.Sun.COM>
+
+       * gnus-group.el: Added backspace.
+
+Thu Nov 27 19:56:59 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus-agent.el (gnus-summary-set-agent-mark): Remove marks
+       properly. 
+
+1997-11-27  Christoph Wedler  <wedler@fmi.uni-passau.de>
+
+       * smiley.el (smiley-buffer): Provide `help-echo'.
+
+Thu Nov 27 17:33:45 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * 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  <abraham@dina.kvl.dk>
+
+       * 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  <aj@arthur.rhein-neckar.de>
+
+       * gnus-start.el (gnus-read-descriptions-file): Add missing quote.
+
+Wed Nov 26 18:19:29 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * 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  <kurt@dna.lth.se>
+
+       * gnus-ems.el (gnus-mule-cite-add-face): Work.
+

 Wed Nov 26 17:40:57 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
        * gnus.el: Quassia Gnus v0.17 is released.
 Wed Nov 26 17:40:57 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
        * gnus.el: Quassia Gnus v0.17 is released.

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index aad6016..a03b1f6 100644 (file)
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -32,7 +32,7 @@
 (require 'bytecomp)
 (push "~/lisp/custom" load-path)
 (push "." load-path)
 (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)
 
 (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 (file)
--- 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)))
   (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)
       (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 (file)
--- 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
   :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."
   "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)
           num prev)
       (cond
        ((null real-time)

-       "X-Sent: Unknown\n")
+       "X-Sent: Unknown")

        ((zerop sec)
        ((zerop sec)

-       "X-Sent: Now\n")
+       "X-Sent: Now")

        (t
        (concat
         "X-Sent: "
        (t
        (concat
         "X-Sent: "

diff --git a/lisp/gnus-cite.el b/lisp/gnus-cite.el
index 4650599..0a1c4c5 100644 (file)
--- 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.
 
 (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
       ()
     ;;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 (file)
--- 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)
     (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)))
 
 (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 (file)
--- 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
     "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
     "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 (file)
--- 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
   ;; 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)))
        (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 (file)
--- 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
 
 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/")
 
 (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)
       (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)))
         ((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 (file)
--- 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
 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)
       (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 (file)
--- 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-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.
 
     ;; 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
              (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
                          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 (file)
--- 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
     " " 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
     "\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."
 
 (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
           (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."
 
 (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)))
       ;; 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)
       ;; 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 (file)
--- 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)
              (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)
     (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 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -31,7 +31,9 @@
 (eval-when-compile (require 'cl))
 
 (require 'custom)
 (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
 (require 'message)
 
 (defgroup gnus nil

@@ -244,7 +246,7 @@ is restarted, and sometimes reloaded."
   :link '(custom-manual "(gnus)Exiting Gnus")
   :group 'gnus)
 
   :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)
   "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)
 
 (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))))
 
     (while keys
       (define-key keymap (pop keys) 'undefined))))
 

diff --git a/lisp/lpath.el b/lisp/lpath.el
index bbf43f6..288dc8a 100644 (file)
--- 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
                     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
                     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)))
                    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
   (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
                 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)
 
 
 (setq load-path (cons "." load-path))
 (require 'custom)
 

+(defun md5 (a &optional b c)
+  )
+

 (provide 'lpath)
 (provide 'lpath)

diff --git a/lisp/message.el b/lisp/message.el
index 1c211aa..13878aa 100644 (file)
--- 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 "^\\'"
 (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 ""
   :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 (file)
--- 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 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))
     (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 (file)
--- 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 <morioka@jaist.ac.jp>
        (ange-ftp-re-read-dir path)))))
 
 ;; 1997/5/4 by MORIOKA Tomohiko <morioka@jaist.ac.jp>

-(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)
   "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 (file)
--- 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 <morioka@jaist.ac.jp>
   (mail-send-and-exit nil))
 
 ;; 1997/5/4 by MORIOKA Tomohiko <morioka@jaist.ac.jp>

-(defvar nnmail-file-coding-system nil
+(defvar nnmail-file-coding-system 'raw-text

   "Coding system used in nnmail.")
 
 (defun nnmail-find-file (file)
   "Coding system used in nnmail.")
 
 (defun nnmail-find-file (file)

diff --git a/lisp/nnml.el b/lisp/nnml.el
index eb36725..b56e578 100644 (file)
--- 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
   "Parse the head of the current buffer."
   (save-excursion
     (save-restriction

-      (goto-char (point-min))

       (unless (zerop (buffer-size))
        (narrow-to-region
       (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)
       ;; 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 (file)
--- 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")
        (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)))
       (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")
        (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))))))
 
       (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 (file)
--- 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)
      (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)
      (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)
      (identifier . nnweb-dejanews-identity))
     (reference
      (article . nnweb-reference-wash-article)

diff --git a/lisp/pop3.el b/lisp/pop3.el
index 944e2f1..276fbfc 100644 (file)
--- a/lisp/pop3.el
+++ b/lisp/pop3.el
@@ -4,7 +4,7 @@
 
 ;; Author: Richard L. Pieri <ratinox@peorth.gweep.net>
 ;; Keywords: mail, pop3
 
 ;; Author: Richard L. Pieri <ratinox@peorth.gweep.net>
 ;; Keywords: mail, pop3

-;; Version: 1.3h
+;; Version: 1.3j

 
 ;; This file is part of GNU Emacs.
 
 
 ;; This file is part of GNU Emacs.
 

@@ -37,7 +37,7 @@
 (require 'mail-utils)
 (provide 'pop3)
 
 (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.")
 
 (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.")
 
   "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)
 
 (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)
       (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))
        (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)
        (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 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)
     (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)
       (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...
        (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 (file)
--- 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 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")
                  (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 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,28 @@
+1997-11-26  SL Baur  <steve@altair.xemacs.org>
+
+       * message.texi (Insertion): Fix typo.
+       (Responses): Ditto.
+       (Reply): Ditto.
+
+Wed Nov 26 12:57:00 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * message.texi (Insertion): Addition.
+
+Wed Nov 26 12:55:15 1997  Hallvard B. Furuseth  <h.b.furuseth@usit.uio.no>
+
+       * message.texi (Insertion): Addition.
+
+Wed Nov 26 12:36:08 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * message.texi (Responses): New.
+       (Appendices): New.
+
+       * gnus.texi (Group Info): Fix.
+
+Tue Nov 25 17:53:55 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus.texi (Article Date): Addition.
+

 Mon Nov 24 16:01:20 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
 
        * gnus.texi (Faces & Fonts): New.
 Mon Nov 24 16:01:20 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
 
        * gnus.texi (Faces & Fonts): New.

diff --git a/texi/gnus.texi b/texi/gnus.texi
index a4df6ad..f799844 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename gnus
 \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
 @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
 @tex
 
 @titlepage

-@title Quassia Gnus 0.17 Manual
+@title Quassia Gnus 0.18 Manual

 
 @author by Lars Magne Ingebrigtsen
 @page
 
 @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.
 
 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
 
 
 @end ifinfo
 

diff --git a/texi/message.texi b/texi/message.texi
index e3db9a5..8b53f93 100644 (file)
--- a/texi/message.texi
+++ b/texi/message.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename message
 \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
 @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
 @tex
 
 @titlepage

-@title Message 0.17 Manual
+@title Message 0.18 Manual

 
 @author by Lars Magne Ingebrigtsen
 @page
 
 @author by Lars Magne Ingebrigtsen
 @page

@@ -80,7 +80,7 @@ Message mode buffers.
 * Key Index::         List of Message mode keys.
 @end menu
 
 * 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. 
 
 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
 
 @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
 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
 that look like:
 
 @example

-Hallvard B Furuseth <h.b.furuseth@usit.uio.no> writes:
+Hallvard B Furuseth <h.b.furuseth@@usit.uio.no> writes:

 @end example
 
 Point will be at the beginning of the body of the message when this
 @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.
 
 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
 @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:
 
 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).
 
 @item From
 (unless there's a @code{Reply-To}, in which case that is used instead).