*** pub/rgnus/lisp/gnus-art.el Sat Apr 19 06:12:49 1997 --- rgnus/lisp/gnus-art.el Sun Apr 27 12:40:52 1997 *************** *** 1124,1129 **** --- 1124,1130 ---- (setq e (point-max))) (nnheader-temp-write nil (insert-buffer-substring gnus-article-buffer b e) + (require 'url) (save-window-excursion (setq buf (car (w3-parse-buffer (current-buffer)))))) (when buf *** pub/rgnus/lisp/gnus-cache.el Sat Apr 19 06:12:49 1997 --- rgnus/lisp/gnus-cache.el Sun Apr 27 12:40:52 1997 *************** *** 650,656 **** (defun gnus-cache-move-cache (dir) "Move the cache tree to somewhere else." ! (interactive "DMove the cache tree to: ") (rename-file gnus-cache-directory dir)) (provide 'gnus-cache) --- 650,656 ---- (defun gnus-cache-move-cache (dir) "Move the cache tree to somewhere else." ! (interactive "FMove the cache tree to: ") (rename-file gnus-cache-directory dir)) (provide 'gnus-cache) *** pub/rgnus/lisp/gnus-ems.el Sat Apr 19 06:12:49 1997 --- rgnus/lisp/gnus-ems.el Sun Apr 27 12:40:53 1997 *************** *** 75,87 **** nil (defvar gnus-mouse-face-prop 'mouse-face ! "Property used for highlighting mouse regions.") ! ! (defvar gnus-article-x-face-command ! "{ echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm | xv -quit -" ! "String or function to be executed to display an X-Face header. ! If it is a string, the command will be executed in a sub-shell ! asynchronously. The compressed face will be piped to this command.")) (cond ((string-match "XEmacs\\|Lucid" emacs-version) --- 75,81 ---- nil (defvar gnus-mouse-face-prop 'mouse-face ! "Property used for highlighting mouse regions.")) (cond ((string-match "XEmacs\\|Lucid" emacs-version) *** pub/rgnus/lisp/gnus-score.el Sun Apr 6 21:51:37 1997 --- rgnus/lisp/gnus-score.el Sun Apr 27 12:40:53 1997 *************** *** 1,4 **** ! ;;; gnus-score.el --- scoring code for Gnus ;; Copyright (C) 1995,96,97 Free Software Foundation, Inc. ;; Author: Per Abrahamsen --- 1,4 ---- ! 1;;; gnus-score.el --- scoring code for Gnus ;; Copyright (C) 1995,96,97 Free Software Foundation, Inc. ;; Author: Per Abrahamsen *************** *** 534,569 **** (setq tchar (or tchar ?s) pchar (or pchar ?t))) ! ;; We continue reading - the type. ! (while (not tchar) ! (if mimic ! (progn ! (sit-for 1) (message "%c %c-" prefix hchar)) ! (message "%s header '%s' with match type (%s?): " ! (if increase "Increase" "Lower") ! (nth 1 entry) ! (mapconcat (lambda (s) ! (if (eq (nth 4 entry) ! (nth 3 s)) ! (char-to-string (car s)) ! "")) ! char-to-type ""))) ! (setq tchar (read-char)) ! (when (or (= tchar ??) (= tchar ?\C-h)) ! (setq tchar nil) ! (gnus-score-insert-help ! "Match type" ! (delq nil ! (mapcar (lambda (s) ! (if (eq (nth 4 entry) ! (nth 3 s)) ! s nil)) ! char-to-type)) ! 2))) ! ! (gnus-score-kill-help-buffer) ! (unless (setq type (nth 1 (assq (downcase tchar) char-to-type))) ! (if mimic (error "%c %c" prefix hchar) (error ""))) (when (/= (downcase tchar) tchar) ;; It was a majuscule, so we end reading and use the default. --- 534,564 ---- (setq tchar (or tchar ?s) pchar (or pchar ?t))) ! (let ((legal-types ! (delq nil ! (mapcar (lambda (s) ! (if (eq (nth 4 entry) ! (nth 3 s)) ! s nil)) ! char-to-type)))) ! ;; We continue reading - the type. ! (while (not tchar) ! (if mimic ! (progn ! (sit-for 1) (message "%c %c-" prefix hchar)) ! (message "%s header '%s' with match type (%s?): " ! (if increase "Increase" "Lower") ! (nth 1 entry) ! (mapconcat (lambda (s) (char-to-string (car s))) ! legal-types ""))) ! (setq tchar (read-char)) ! (when (or (= tchar ??) (= tchar ?\C-h)) ! (setq tchar nil) ! (gnus-score-insert-help "Match type" legal-types 2))) ! ! (gnus-score-kill-help-buffer) ! (unless (setq type (nth 1 (assq (downcase tchar) legal-types))) ! (if mimic (error "%c %c" prefix hchar) (error "")))) (when (/= (downcase tchar) tchar) ;; It was a majuscule, so we end reading and use the default. *** pub/rgnus/lisp/gnus-sum.el Sat Apr 19 06:12:53 1997 --- rgnus/lisp/gnus-sum.el Sun Apr 27 12:40:54 1997 *************** *** 6155,6163 **** (mail-header-number header))))) (if header (prog1 ! ;; The article is present in the buffer, to we just go to it. (gnus-summary-goto-article ! (mail-header-number header) nil header) (when sparse (gnus-summary-update-article (mail-header-number header)))) ;; We fetch the article --- 6155,6163 ---- (mail-header-number header))))) (if header (prog1 ! ;; The article is present in the buffer, so we just go to it. (gnus-summary-goto-article ! (mail-header-number header) nil t) (when sparse (gnus-summary-update-article (mail-header-number header)))) ;; We fetch the article *************** *** 8640,8645 **** --- 8640,8646 ---- (push (cons prev (cdr active)) read)) (save-excursion (set-buffer gnus-group-buffer) + (gnus-undo-boundary) (gnus-undo-register `(progn (gnus-info-set-marks ',info ',(gnus-info-marks info) t) *** pub/rgnus/lisp/gnus-undo.el Thu Apr 10 22:15:17 1997 --- rgnus/lisp/gnus-undo.el Sun Apr 27 12:40:55 1997 *************** *** 103,109 **** minor-mode-map-alist)) (make-local-hook 'post-command-hook) (add-hook 'post-command-hook 'gnus-undo-boundary nil t) - (add-hook 'gnus-summary-exit-hook 'gnus-undo-boundary) (run-hooks 'gnus-undo-mode-hook))) ;;; Interface functions. --- 103,108 ---- *** pub/rgnus/lisp/gnus-xmas.el Sat Apr 19 06:12:53 1997 --- rgnus/lisp/gnus-xmas.el Sun Apr 27 12:40:55 1997 *************** *** 28,33 **** --- 28,34 ---- (require 'text-props) (defvar menu-bar-mode (featurep 'menubar)) (require 'messagexmas) + (require 'gnus-art) (defgroup gnus-xmas nil "XEmacsoid support for Gnus" *** pub/rgnus/lisp/gnus.el Sat Apr 19 06:12:54 1997 --- rgnus/lisp/gnus.el Sun Apr 27 12:40:55 1997 *************** *** 226,232 **** :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "5.4.46" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) --- 226,232 ---- :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "5.4.47" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) *** pub/rgnus/lisp/message.el Sat Apr 19 06:12:54 1997 --- rgnus/lisp/message.el Sun Apr 27 12:40:56 1997 *************** *** 751,757 **** (,(concat "^\\([Nn]ewsgroups:\\|Followup-[Tt]o:\\)" content) (1 'message-header-name-face) (2 'message-header-newsgroups-face nil t)) ! (,(concat "^\\([^: \n\t]+:\\)" content) (1 'message-header-name-face) (2 'message-header-other-face nil t)) (,(concat "^\\(X-[A-Za-z0-9-]+\\|In-Reply-To\\):" content) --- 751,757 ---- (,(concat "^\\([Nn]ewsgroups:\\|Followup-[Tt]o:\\)" content) (1 'message-header-name-face) (2 'message-header-newsgroups-face nil t)) ! (,(concat "^\\([A-Z][^: \n\t]+:\\)" content) (1 'message-header-name-face) (2 'message-header-other-face nil t)) (,(concat "^\\(X-[A-Za-z0-9-]+\\|In-Reply-To\\):" content) *** pub/rgnus/lisp/nnmail.el Sat Apr 19 06:12:55 1997 --- rgnus/lisp/nnmail.el Sun Apr 27 12:40:57 1997 *************** *** 545,556 **** (when (and (file-exists-p nnmail-crash-box) (zerop (nnheader-file-size (file-truename nnmail-crash-box)))) (delete-file nnmail-crash-box)) ! (let ((inbox (file-truename (expand-file-name inbox))) ! (tofile (file-truename (expand-file-name nnmail-crash-box))) ! movemail popmail errors result) ! (if (setq popmail (string-match ! "^po:" (file-name-nondirectory inbox))) ! (setq inbox (file-name-nondirectory inbox)) (setq movemail t) ;; On some systems, /usr/spool/mail/foo is a directory ;; and the actual inbox is /usr/spool/mail/foo/foo. --- 545,555 ---- (when (and (file-exists-p nnmail-crash-box) (zerop (nnheader-file-size (file-truename nnmail-crash-box)))) (delete-file nnmail-crash-box)) ! (let ((tofile (file-truename (expand-file-name nnmail-crash-box))) ! (popmail (string-match "^po:" inbox)) ! movemail errors result) ! (unless popmail ! (setq inbox (file-truename (expand-file-name inbox))) (setq movemail t) ;; On some systems, /usr/spool/mail/foo is a directory ;; and the actual inbox is /usr/spool/mail/foo/foo. *** pub/rgnus/lisp/nnmh.el Wed Apr 2 14:21:10 1997 --- rgnus/lisp/nnmh.el Sun Apr 27 12:40:57 1997 *************** *** 189,195 **** (defvar nnmh-toplev) (defun nnmh-request-list-1 (dir) ! (setq dir (expand-file-name dir)) ;; Recurse down all directories. (let ((dirs (and (file-readable-p dir) (> (nth 1 (file-attributes (file-chase-links dir))) 2) --- 189,195 ---- (defvar nnmh-toplev) (defun nnmh-request-list-1 (dir) ! (setq dir (file-truename (expand-file-name dir))) ;; Recurse down all directories. (let ((dirs (and (file-readable-p dir) (> (nth 1 (file-attributes (file-chase-links dir))) 2) *** pub/rgnus/lisp/nntp.el Mon Mar 31 17:37:45 1997 --- rgnus/lisp/nntp.el Sun Apr 27 12:40:57 1997 *************** *** 98,103 **** --- 98,109 ---- (defvoo nntp-telnet-passwd nil "Password to use to log in via telnet with.") + (defvoo nntp-telnet-command "telnet" + "Command used to start telnet.") + + (defvoo nntp-telnet-switches '("-8") + "Switches given to the telnet command.") + (defvoo nntp-end-of-line "\r\n" "String to use on the end of lines when talking to the NNTP server. This is \"\\r\\n\" by default, but should be \"\\n\" when *************** *** 1040,1047 **** (save-excursion (set-buffer buffer) (erase-buffer) ! (let ((proc (start-process ! "nntpd" buffer "telnet" "-8")) (case-fold-search t)) (when (memq (process-status proc) '(open run)) (process-send-string proc "set escape \^X\n") --- 1046,1054 ---- (save-excursion (set-buffer buffer) (erase-buffer) ! (let ((proc (apply ! 'start-process ! "nntpd" buffer nntp-telnet-command nntp-telnet-switches)) (case-fold-search t)) (when (memq (process-status proc) '(open run)) (process-send-string proc "set escape \^X\n") *** pub/rgnus/lisp/nnweb.el Sat Apr 12 01:49:55 1997 --- rgnus/lisp/nnweb.el Sun Apr 27 12:40:58 1997 *************** *** 286,294 **** (save-excursion (set-buffer nnweb-buffer) (erase-buffer) ! (prog1 ! (url-insert-file-contents url) ! (copy-to-buffer buf (point-min) (point-max))))) (nnweb-url-retrieve-asynch url 'nnweb-callback (current-buffer) nnheader-callback-function) t))) --- 286,294 ---- (save-excursion (set-buffer nnweb-buffer) (erase-buffer) ! (url-insert-file-contents url) ! (copy-to-buffer buf (point-min) (point-max)) ! t)) (nnweb-url-retrieve-asynch url 'nnweb-callback (current-buffer) nnheader-callback-function) t))) *************** *** 562,596 **** (set-marker body nil)))) (defun nnweb-reference-search (search) ! (prog1 ! (url-insert-file-contents ! (concat ! (nnweb-definition 'address) ! "?" ! (nnweb-encode-www-form-urlencoded ! `(("search" . "advanced") ! ("querytext" . ,search) ! ("subj" . "") ! ("name" . "") ! ("login" . "") ! ("host" . "") ! ("organization" . "") ! ("groups" . "") ! ("keywords" . "") ! ("choice" . "Search") ! ("startmonth" . "Jul") ! ("startday" . "25") ! ("startyear" . "1996") ! ("endmonth" . "Aug") ! ("endday" . "24") ! ("endyear" . "1996") ! ("mode" . "Quick") ! ("verbosity" . "Verbose") ! ("ranking" . "Relevance") ! ("first" . "1") ! ("last" . "25") ! ("score" . "50"))))) ! (setq buffer-file-name nil)) t) ;;; --- 562,595 ---- (set-marker body nil)))) (defun nnweb-reference-search (search) ! (url-insert-file-contents ! (concat ! (nnweb-definition 'address) ! "?" ! (nnweb-encode-www-form-urlencoded ! `(("search" . "advanced") ! ("querytext" . ,search) ! ("subj" . "") ! ("name" . "") ! ("login" . "") ! ("host" . "") ! ("organization" . "") ! ("groups" . "") ! ("keywords" . "") ! ("choice" . "Search") ! ("startmonth" . "Jul") ! ("startday" . "25") ! ("startyear" . "1996") ! ("endmonth" . "Aug") ! ("endday" . "24") ! ("endyear" . "1996") ! ("mode" . "Quick") ! ("verbosity" . "Verbose") ! ("ranking" . "Relevance") ! ("first" . "1") ! ("last" . "25") ! ("score" . "50"))))) ! (setq buffer-file-name nil) t) ;;; *************** *** 668,688 **** (nnweb-remove-markup))) (defun nnweb-altavista-search (search &optional part) ! (prog1 ! (url-insert-file-contents ! (concat ! (nnweb-definition 'address) ! "?" ! (nnweb-encode-www-form-urlencoded ! `(("pg" . "aq") ! ("what" . "news") ! ,@(when part `(("stq" . ,(int-to-string (* part 30))))) ! ("fmt" . "d") ! ("q" . ,search) ! ("r" . "") ! ("d0" . "") ! ("d1" . ""))))) ! (setq buffer-file-name nil))) (provide 'nnweb) --- 667,687 ---- (nnweb-remove-markup))) (defun nnweb-altavista-search (search &optional part) ! (url-insert-file-contents ! (concat ! (nnweb-definition 'address) ! "?" ! (nnweb-encode-www-form-urlencoded ! `(("pg" . "aq") ! ("what" . "news") ! ,@(when part `(("stq" . ,(int-to-string (* part 30))))) ! ("fmt" . "d") ! ("q" . ,search) ! ("r" . "") ! ("d0" . "") ! ("d1" . ""))))) ! (setq buffer-file-name nil) ! t) (provide 'nnweb) *** pub/rgnus/lisp/ChangeLog Sat Apr 19 06:12:48 1997 --- rgnus/lisp/ChangeLog Sun Apr 27 12:40:51 1997 *************** *** 1,3 **** --- 1,49 ---- + Sun Apr 27 12:32:13 1997 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.4.47 is released. + + Sun Apr 27 10:42:08 1997 Lars Magne Ingebrigtsen + + * gnus-cache.el (gnus-cache-move-cache): Allow entering directory + name. + + * nntp.el (nntp-telnet-command, nntp-telnet-switches): New + variables. + + * gnus-score.el (gnus-summary-increase-score): Refuse illegal + match types. + + Fri Apr 25 06:16:05 1997 Arne Georg Gleditsch + + * gnus-sum.el (gnus-summary-refer-article): Go to article when + expunged. + + Wed Apr 23 19:48:43 1997 Per Abrahamsen + + * gnus-ems.el (gnus-article-x-face-command): Removed bogus + declaration. + + Mon Apr 21 16:44:00 1997 Paul Franklin + + * nnmail.el (nnmail-move-inbox): fewer (0?) file calls on inbox if + popmail. + + Thu Apr 24 14:04:31 1997 Lars Magne Ingebrigtsen + + * message.el (message-font-lock-keywords): Be more conservative in + determining headers. + + * nnmh.el (nnmh-request-list-1): Use truenames. + + * gnus-undo.el (gnus-undo-mode): Don't infest + gnus-summary-exit-hook. + + * gnus-sum.el (gnus-update-read-articles): Force an undo + boundary. + + * nnweb.el (nnweb-fetch-url): Don't rely on return values from + url-insert-file-contents. + Sat Apr 19 06:11:31 1997 Lars Magne Ingebrigtsen * gnus.el: Gnus v5.4.46 is released. *** pub/rgnus/texi/gnus.texi Sat Apr 19 06:12:58 1997 --- rgnus/texi/gnus.texi Sun Apr 27 12:40:59 1997 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Gnus 5.4.46 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Gnus 5.4.47 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 287,293 **** @tex @titlepage ! @title Gnus 5.4.46 Manual @author by Lars Magne Ingebrigtsen @page --- 287,293 ---- @tex @titlepage ! @title Gnus 5.4.47 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 323,329 **** spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Gnus 5.4.46. @end ifinfo --- 323,329 ---- spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Gnus 5.4.47. @end ifinfo *************** *** 8453,8472 **** server. @findex nntp-open-rlogin @findex nntp-open-network-stream @item nntp-open-connection-function @vindex nntp-open-connection-function ! This function is used to connect to the remote system. Two pre-made functions are @code{nntp-open-network-stream}, which is the default, and simply connects to some port or other on the remote system. The other ! is @code{nntp-open-rlogin}, which does an rlogin on the remote system, ! and then does a telnet to the @sc{nntp} server available there. @item nntp-rlogin-parameters @vindex nntp-rlogin-parameters ! If you use @code{nntp-open-rlogin} as the ! @code{nntp-open-connection-function}, this list will be used as the ! parameter list given to @code{rsh}. @item nntp-end-of-line @vindex nntp-end-of-line --- 8453,8510 ---- server. @findex nntp-open-rlogin + @findex nntp-open-telnet @findex nntp-open-network-stream @item nntp-open-connection-function @vindex nntp-open-connection-function ! This function is used to connect to the remote system. Three pre-made functions are @code{nntp-open-network-stream}, which is the default, and simply connects to some port or other on the remote system. The other ! two are @code{nntp-open-rlogin}, which does an @samp{rlogin} on the ! remote system, and then does a @samp{telnet} to the @sc{nntp} server ! available there, and @code{nntp-open-telnet}, which does a @samp{telnet} ! to the remote system and then another @samp{telnet} to get to the ! @sc{nntp} server. ! ! @code{nntp-open-rlogin}-related variables: ! ! @table @code @item nntp-rlogin-parameters @vindex nntp-rlogin-parameters ! This list will be used as the parameter list given to @code{rsh}. ! ! @item nntp-rlogin-user-name ! @vindex nntp-rlogin-user-name ! User name on the remote system. ! ! @end table ! ! @code{nntp-open-telnet}-related variables: ! ! @table @code ! @item nntp-telnet-command ! @vindex nntp-telnet-command ! Command used to start @samp{telnet}. ! ! @item nntp-telnet-switches ! @vindex nntp-telnet-switches ! List of strings to be used as the switches to the telnet command. ! ! @item nntp-telnet-user-name ! @vindex nntp-telnet-user-name ! User name to log in on the remote system as. ! ! @item nntp-telnet-passwd ! @vindex nntp-telnet-passwd ! Password to use when logging in. ! ! @item nntp-telnet-parameters ! @vindex nntp-telnet-parameters ! A list of strings that will be executed as a command after logging in ! via telnet. ! ! @end table @item nntp-end-of-line @vindex nntp-end-of-line *************** *** 14035,14040 **** --- 14073,14079 ---- Hisashige Kenji, @c Hisashige Marc Horowitz, Gunnar Horrigmo, + Brad Howes, François Felix Ingrand, Ishikawa Ichiro, @c Ishikawa Lee Iverson, *************** *** 14096,14101 **** --- 14135,14141 ---- Teddy, Chuck Thompson, Philippe Troin, + Aaron M. Ucko, Jan Vroonhof, Barry A. Warsaw, Christoph Wedler, *** pub/rgnus/texi/message.texi Sat Apr 19 06:12:58 1997 --- rgnus/texi/message.texi Sun Apr 27 12:41:00 1997 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 5.4.46 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 5.4.47 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 39,45 **** @tex @titlepage ! @title Message 5.4.46 Manual @author by Lars Magne Ingebrigtsen @page --- 39,45 ---- @tex @titlepage ! @title Message 5.4.47 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 79,85 **** * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Message 5.4.46. Message is distributed with the Gnus distribution bearing the same version number as this manual has. --- 79,85 ---- * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Message 5.4.47. Message is distributed with the Gnus distribution bearing the same version number as this manual has. *** pub/rgnus/texi/ChangeLog Sat Apr 19 06:12:58 1997 --- rgnus/texi/ChangeLog Sun Apr 27 12:41:00 1997 *************** *** 1,3 **** --- 1,7 ---- + Sun Apr 27 11:11:43 1997 Lars Magne Ingebrigtsen + + * gnus.texi (NNTP): Addition. + Sat Apr 12 16:51:32 1997 Robert Bihlmeyer * gnus.texi (Thwarting Email Spam): Addition.