*** pub/pgnus/lisp/gnus-msg.el Sun Sep 6 21:34:43 1998 --- pgnus/lisp/gnus-msg.el Wed Sep 9 12:23:56 1998 *************** *** 537,574 **** ! ;; Dummy to avoid byte-compile warning. (defvar nnspool-rejected-article-hook) (defvar xemacs-codename) - ;;; Since the X-Newsreader/X-Mailer are ``vanity'' headers, they might - ;;; as well include the Emacs version as well. - ;;; The following function works with later GNU Emacs, and XEmacs. (defun gnus-extended-version () "Stringified Gnus version and Emacs version." (interactive) (concat ! gnus-version ! "/" (cond ((string-match "^\\([0-9]+\\.[0-9]+\\)\\.[.0-9]+$" emacs-version) ! (concat "Emacs " (substring emacs-version ! (match-beginning 1) ! (match-end 1)))) ((string-match "\\([A-Z]*[Mm][Aa][Cc][Ss]\\)[^(]*\\(\\((beta.*)\\|'\\)\\)?" emacs-version) ! (concat (substring emacs-version ! (match-beginning 1) ! (match-end 1)) ! (format " %d.%d" emacs-major-version emacs-minor-version) (if (match-beginning 3) ! (substring emacs-version ! (match-beginning 3) ! (match-end 3)) "") (if (boundp 'xemacs-codename) ! (concat " - \"" xemacs-codename "\"")))) ! (t emacs-version)))) ;;; --- 537,567 ---- ! ;; Dummies to avoid byte-compile warning. (defvar nnspool-rejected-article-hook) (defvar xemacs-codename) (defun gnus-extended-version () "Stringified Gnus version and Emacs version." (interactive) (concat ! "Gnus/" (prin1-to-string (gnus-continuum-version gnus-version) t) ! " " (cond ((string-match "^\\([0-9]+\\.[0-9]+\\)\\.[.0-9]+$" emacs-version) ! (concat "Emacs/" (match-string 1 emacs-version))) ((string-match "\\([A-Z]*[Mm][Aa][Cc][Ss]\\)[^(]*\\(\\((beta.*)\\|'\\)\\)?" emacs-version) ! (concat (match-string 1 emacs-version) ! (format "/%d.%d" emacs-major-version emacs-minor-version) (if (match-beginning 3) ! (match-string 3 emacs-version) "") (if (boundp 'xemacs-codename) ! (concat " (" xemacs-codename ")") ! ""))) ! (t emacs-version)) ! " (" gnus-version ")")) ;;; *** pub/pgnus/lisp/gnus-sum.el Tue Sep 8 04:28:44 1998 --- pgnus/lisp/gnus-sum.el Wed Sep 9 12:23:57 1998 *************** *** 2880,2886 **** threads)) ;; Build the thread tree. ! (defun gnus-dependencies-add-header (header dependencies force-new) "Enter HEADER into the DEPENDENCIES table if it is not already there. If FORCE-NEW is not nil, enter HEADER into the DEPENDENCIES table even --- 2880,2886 ---- threads)) ;; Build the thread tree. ! (defsubst gnus-dependencies-add-header (header dependencies force-new) "Enter HEADER into the DEPENDENCIES table if it is not already there. If FORCE-NEW is not nil, enter HEADER into the DEPENDENCIES table even *** pub/pgnus/lisp/gnus-util.el Tue Sep 8 21:41:35 1998 --- pgnus/lisp/gnus-util.el Wed Sep 9 12:23:57 1998 *************** *** 386,392 **** ids)) (nreverse ids))) ! (defun gnus-parent-id (references &optional n) "Return the last Message-ID in REFERENCES. If N, return the Nth ancestor instead." (when references --- 386,392 ---- ids)) (nreverse ids))) ! (defsubst gnus-parent-id (references &optional n) "Return the last Message-ID in REFERENCES. If N, return the Nth ancestor instead." (when references *************** *** 539,545 **** (setq string (replace-match "" t t string))) string) ! (defun gnus-put-text-property-excluding-newlines (beg end prop val) "The same as `put-text-property', but don't put this prop on any newlines in the region." (save-match-data (save-excursion --- 539,545 ---- (setq string (replace-match "" t t string))) string) ! (defsubst gnus-put-text-property-excluding-newlines (beg end prop val) "The same as `put-text-property', but don't put this prop on any newlines in the region." (save-match-data (save-excursion *** pub/pgnus/lisp/gnus.el Tue Sep 8 22:37:45 1998 --- pgnus/lisp/gnus.el Wed Sep 9 12:23:57 1998 *************** *** 250,256 **** :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "0.22" "Version number for this version of Gnus.") (defconst gnus-version (format "Pterodactyl Gnus v%s" gnus-version-number) --- 250,256 ---- :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "0.23" "Version number for this version of Gnus.") (defconst gnus-version (format "Pterodactyl Gnus v%s" gnus-version-number) *** pub/pgnus/lisp/message.el Tue Sep 8 04:28:45 1998 --- pgnus/lisp/message.el Wed Sep 9 12:23:58 1998 *************** *** 173,183 **** (defcustom message-required-news-headers '(From Newsgroups Subject Date Message-ID (optional . Organization) Lines ! (optional . X-Newsreader)) "*Headers to be generated or prompted for when posting an article. RFC977 and RFC1036 require From, Date, Newsgroups, Subject, Message-ID. Organization, Lines, In-Reply-To, Expires, and ! X-Newsreader are optional. If don't you want message to insert some header, remove it from this list." :group 'message-news :group 'message-headers --- 173,183 ---- (defcustom message-required-news-headers '(From Newsgroups Subject Date Message-ID (optional . Organization) Lines ! (optional . User-Agent)) "*Headers to be generated or prompted for when posting an article. RFC977 and RFC1036 require From, Date, Newsgroups, Subject, Message-ID. Organization, Lines, In-Reply-To, Expires, and ! User-Agent are optional. If don't you want message to insert some header, remove it from this list." :group 'message-news :group 'message-headers *************** *** 185,194 **** (defcustom message-required-mail-headers '(From Subject Date (optional . In-Reply-To) Message-ID Lines ! (optional . X-Mailer)) "*Headers to be generated or prompted for when mailing a message. RFC822 required that From, Date, To, Subject and Message-ID be ! included. Organization, Lines and X-Mailer are optional." :group 'message-mail :group 'message-headers :type '(repeat sexp)) --- 185,194 ---- (defcustom message-required-mail-headers '(From Subject Date (optional . In-Reply-To) Message-ID Lines ! (optional . User-Agent)) "*Headers to be generated or prompted for when mailing a message. RFC822 required that From, Date, To, Subject and Message-ID be ! included. Organization, Lines and User-Agent are optional." :group 'message-mail :group 'message-headers :type '(repeat sexp)) *************** *** 939,946 **** (Expires) (Message-ID) (References . message-shorten-references) ! (X-Mailer) ! (X-Newsreader)) "Alist used for formatting headers.") (eval-and-compile --- 939,945 ---- (Expires) (Message-ID) (References . message-shorten-references) ! (User-Agent)) "Alist used for formatting headers.") (eval-and-compile *************** *** 2891,2899 **** (To nil) (Distribution (message-make-distribution)) (Lines (message-make-lines)) ! (X-Newsreader message-newsreader) ! (X-Mailer (and (not (message-fetch-field "X-Newsreader")) ! message-mailer)) (Expires (message-make-expires)) (case-fold-search t) header value elem) --- 2890,2896 ---- (To nil) (Distribution (message-make-distribution)) (Lines (message-make-lines)) ! (User-Agent message-newsreader) (Expires (message-make-expires)) (case-fold-search t) header value elem) *** pub/pgnus/lisp/mm-util.el Tue Sep 8 22:37:45 1998 --- pgnus/lisp/mm-util.el Wed Sep 9 12:23:58 1998 *************** *** 167,173 **** (setq idx (1+ idx))) string)) ! (defun mm-enable-multibyte () "Enable multibyte in the current buffer." (when (fboundp 'set-buffer-multibyte) (set-buffer-multibyte t))) --- 167,173 ---- (setq idx (1+ idx))) string)) ! (defsubst mm-enable-multibyte () "Enable multibyte in the current buffer." (when (fboundp 'set-buffer-multibyte) (set-buffer-multibyte t))) *************** *** 196,202 **** (point-min) (point-max))))) (mm-mule-charset-to-mime-charset charset))) ! (defun mm-multibyte-p () "Say whether multibyte is enabled." (and (boundp 'enable-multibyte-characters) enable-multibyte-characters)) --- 196,202 ---- (point-min) (point-max))))) (mm-mule-charset-to-mime-charset charset))) ! (defsubst mm-multibyte-p () "Say whether multibyte is enabled." (and (boundp 'enable-multibyte-characters) enable-multibyte-characters)) *** pub/pgnus/lisp/nnheader.el Tue Sep 8 21:41:36 1998 --- pgnus/lisp/nnheader.el Wed Sep 9 12:23:58 1998 *************** *** 399,404 **** --- 399,405 ---- (save-excursion (unless (gnus-buffer-live-p nntp-server-buffer) (setq nntp-server-buffer (get-buffer-create " *nntpd*"))) + (mm-enable-multibyte) (set-buffer nntp-server-buffer) (erase-buffer) (kill-all-local-variables) *** pub/pgnus/lisp/nntp.el Tue Sep 8 11:22:30 1998 --- pgnus/lisp/nntp.el Wed Sep 9 12:23:58 1998 *************** *** 821,827 **** (format " *server %s %s %s*" nntp-address nntp-port-number (gnus-buffer-exists-p buffer)))) ! (buffer-disable-undo (current-buffer)) (set (make-local-variable 'after-change-functions) nil) (set (make-local-variable 'nntp-process-wait-for) nil) (set (make-local-variable 'nntp-process-callback) nil) --- 821,827 ---- (format " *server %s %s %s*" nntp-address nntp-port-number (gnus-buffer-exists-p buffer)))) ! (mm-enable-multibyte) (set (make-local-variable 'after-change-functions) nil) (set (make-local-variable 'nntp-process-wait-for) nil) (set (make-local-variable 'nntp-process-callback) nil) *** pub/pgnus/lisp/ChangeLog Tue Sep 8 22:37:45 1998 --- pgnus/lisp/ChangeLog Wed Sep 9 12:23:56 1998 *************** *** 1,3 **** --- 1,22 ---- + Wed Sep 9 12:25:48 1998 Lars Magne Ingebrigtsen + + * gnus.el: Pterodactyl Gnus v0.23 is released. + + 1998-09-09 12:14:47 Lars Magne Ingebrigtsen + + * gnus-util.el (gnus-parent-id): Ditto. + (gnus-put-text-property-excluding-newlines): Ditto. + + * gnus-sum.el (gnus-dependencies-add-header): Make into subst. + + 1998-09-08 Karl Kleinpaste + + * message.el (message-generate-headers): Generate User-Agent + instead of X-Mailer & X-Newsreader. + + * gnus-msg.el (gnus-extended-version): Reformat for USEFOR + User-Agent header format. + Tue Sep 8 22:38:27 1998 Lars Magne Ingebrigtsen * gnus.el: Pterodactyl Gnus v0.22 is released. *** pub/pgnus/texi/gnus.texi Tue Sep 8 22:37:46 1998 --- pgnus/texi/gnus.texi Wed Sep 9 12:23:59 1998 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Pterodactyl Gnus 0.22 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Pterodactyl Gnus 0.23 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 318,324 **** @tex @titlepage ! @title Pterodactyl Gnus 0.22 Manual @author by Lars Magne Ingebrigtsen @page --- 318,324 ---- @tex @titlepage ! @title Pterodactyl Gnus 0.23 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 354,360 **** spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Pterodactyl Gnus 0.22. @end ifinfo --- 354,360 ---- spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Pterodactyl Gnus 0.23. @end ifinfo *** pub/pgnus/texi/message.texi Tue Sep 8 22:37:46 1998 --- pgnus/texi/message.texi Wed Sep 9 12:24:00 1998 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Pterodactyl Message 0.22 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Pterodactyl Message 0.23 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 42,48 **** @tex @titlepage ! @title Pterodactyl Message 0.22 Manual @author by Lars Magne Ingebrigtsen @page --- 42,48 ---- @tex @titlepage ! @title Pterodactyl Message 0.23 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 83,89 **** * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Pterodactyl Message 0.22. Message is distributed with the Gnus distribution bearing the same version number as this manual. --- 83,89 ---- * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Pterodactyl Message 0.23. Message is distributed with the Gnus distribution bearing the same version number as this manual.