*** pub/sgnus/lisp/gnus-msg.el Thu Apr 18 14:46:36 1996 --- sgnus/lisp/gnus-msg.el Thu Apr 18 23:11:52 1996 *************** *** 502,508 **** (gnus-setup-message (if yank 'reply-yank 'reply) (gnus-summary-select-article) (set-buffer (gnus-copy-article-buffer)) ! (message-reply) (when yank (gnus-inews-yank-articles yank))))) --- 502,509 ---- (gnus-setup-message (if yank 'reply-yank 'reply) (gnus-summary-select-article) (set-buffer (gnus-copy-article-buffer)) ! (message-reply nil nil (gnus-group-get-parameter ! gnus-newsgroup-name 'broken-reply-to)) (when yank (gnus-inews-yank-articles yank))))) *** pub/sgnus/lisp/gnus-nocem.el Thu Apr 18 14:46:36 1996 --- sgnus/lisp/gnus-nocem.el Thu Apr 18 22:49:34 1996 *************** *** 36,42 **** (defvar gnus-nocem-issuers '("Automoose-1" ; The CancelMoose[tm] on autopilot. "clewis@ferret.ocunix.on.ca;" ; Chris Lewis -- Canadian angel & despammer. ! "jem@xpat.com;" ; Jem -- Korean despammer. "red@redpoll.mrfs.oh.us (Richard E. Depew)" ; Spew/bincancel guy. ) "*List of NoCeM issuers to pay attention to.") --- 36,42 ---- (defvar gnus-nocem-issuers '("Automoose-1" ; The CancelMoose[tm] on autopilot. "clewis@ferret.ocunix.on.ca;" ; Chris Lewis -- Canadian angel & despammer. ! "jem@xpat.com;" ; John Milburn -- despammer in Korea. "red@redpoll.mrfs.oh.us (Richard E. Depew)" ; Spew/bincancel guy. ) "*List of NoCeM issuers to pay attention to.") *** pub/sgnus/lisp/gnus-vis.el Thu Apr 18 14:46:41 1996 --- sgnus/lisp/gnus-vis.el Thu Apr 18 23:11:50 1996 *************** *** 207,213 **** ;(defvar gnus-signature-face 'italic ; "Face used for signature.") ! (defvar gnus-button-url-regexp "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\):\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?[-\\wa-zA-Z0-9_=?#$@~`%&*+|\\/.,]*[-\\wa-zA-Z0-9_=#$@~`%&*+|\\/]" "*Regular expression that matches URLs.") (defvar gnus-button-alist --- 207,213 ---- ;(defvar gnus-signature-face 'italic ; "Face used for signature.") ! (defvar gnus-button-url-regexp "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\):\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?[-\\wa-zA-Z0-9_=!?#$@~`%&*+|\\/.,]*[-\\wa-zA-Z0-9_=#$@~`%&*+|\\/]" "*Regular expression that matches URLs.") (defvar gnus-button-alist *************** *** 805,812 **** ["Resend message" gnus-summary-resend-message t] ["Send bounced mail" gnus-summary-resend-bounced-mail t] ["Send a mail" gnus-summary-mail-other-window t] - ["Reply & followup" gnus-summary-followup-and-reply t] - ["Reply & followup and yank" gnus-summary-followup-and-reply-with-original t] ["Uuencode and post" gnus-uu-post-news t] ("Draft" ["Send" gnus-summary-send-draft t] --- 805,810 ---- *** pub/sgnus/lisp/gnus.el Thu Apr 18 14:46:42 1996 --- sgnus/lisp/gnus.el Thu Apr 18 23:11:49 1996 *************** *** 1702,1708 **** "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version "September Gnus v0.74" "Version number for this version of Gnus.") (defvar gnus-info-nodes --- 1702,1708 ---- "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version "September Gnus v0.75" "Version number for this version of Gnus.") (defvar gnus-info-nodes *************** *** 5277,5284 **** "Group: " gnus-active-hashtb nil (memq gnus-select-method gnus-have-read-active-file)))) ! (if (equal group "") ! (error "Empty group name")) (let ((b (text-property-any (point-min) (point-max) --- 5277,5287 ---- "Group: " gnus-active-hashtb nil (memq gnus-select-method gnus-have-read-active-file)))) ! (when (equal group "") ! (error "Empty group name")) ! ! (when (string-match "[\000-\032]" group) ! (error "Control characters in group: %s" group)) (let ((b (text-property-any (point-min) (point-max) *************** *** 9705,9712 **** (quit-config (gnus-group-quit-config gnus-newsgroup-name)) (mode major-mode) (buf (current-buffer))) ! (unless temporary ! (run-hooks 'gnus-summary-prepare-exit-hook)) ;; If we have several article buffers, we kill them at exit. (unless gnus-single-article-buffer (gnus-kill-buffer gnus-article-buffer) --- 9708,9714 ---- (quit-config (gnus-group-quit-config gnus-newsgroup-name)) (mode major-mode) (buf (current-buffer))) ! (run-hooks 'gnus-summary-prepare-exit-hook) ;; If we have several article buffers, we kill them at exit. (unless gnus-single-article-buffer (gnus-kill-buffer gnus-article-buffer) *************** *** 11089,11094 **** --- 11091,11097 ---- (let ((gnus-have-all-headers t) gnus-article-display-hook gnus-article-prepare-hook + gnus-break-pages gnus-visual) (gnus-summary-select-article nil 'force))) ; (gnus-configure-windows 'article) *** pub/sgnus/lisp/message.el Thu Apr 18 14:46:44 1996 --- sgnus/lisp/message.el Thu Apr 18 23:11:55 1996 *************** *** 390,398 **** - (eval-and-compile - (autoload 'mail-aliases-setup "mailabbrev")) - ;;; ;;; Utility functions. ;;; --- 390,395 ---- *************** *** 1947,1953 **** (Subject . ,(or subject ""))))) ;;;###autoload ! (defun message-reply (&optional to-address wide) "Start editing a reply to the article in the current buffer." (interactive) (let ((cur (current-buffer)) --- 1944,1950 ---- (Subject . ,(or subject ""))))) ;;;###autoload ! (defun message-reply (&optional to-address wide ignore-reply-to) "Start editing a reply to the article in the current buffer." (interactive) (let ((cur (current-buffer)) *************** *** 1978,1984 **** to (mail-fetch-field "to") cc (mail-fetch-field "cc") mct (mail-fetch-field "mail-copies-to") ! reply-to (mail-fetch-field "reply-to") references (mail-fetch-field "references") message-id (mail-fetch-field "message-id")) ;; Remove any (buggy) Re:'s that are present and make a --- 1975,1981 ---- to (mail-fetch-field "to") cc (mail-fetch-field "cc") mct (mail-fetch-field "mail-copies-to") ! reply-to (unless ignore-reply-to (mail-fetch-field "reply-to")) references (mail-fetch-field "references") message-id (mail-fetch-field "message-id")) ;; Remove any (buggy) Re:'s that are present and make a *** pub/sgnus/lisp/ChangeLog Thu Apr 18 14:46:55 1996 --- sgnus/lisp/ChangeLog Thu Apr 18 23:11:29 1996 *************** *** 1,4 **** --- 1,28 ---- + Thu Apr 18 20:10:11 1996 Lars Magne Ingebrigtsen + + * gnus.el (gnus-summary-show-article): Stop page breaking when + given a prefix. + + * gnus-vis.el (gnus-summary-make-menu-bar): Removed obsolete + functions. + + * gnus-msg.el (gnus-summary-reply): Pass on `broken-reply-to'. + + * message.el (message-reply): Allow broken reply-to. + + * gnus.el (gnus-group-jump-to-group): Refuse to treat groups that + have control characters in them. + + Thu Apr 18 18:47:16 1996 Lars Magne Ingebrigtsen + + * gnus-vis.el (gnus-button-url-regexp): Allow "!" in URLs. + + * gnus.el (gnus-summary-exit): Always run + `gnus-summary-prepare-exit-hook'. + Thu Apr 18 12:15:27 1996 Lars Magne Ingebrigtsen + + * gnus.el: September Gnus v0.74 is released. * gnus.el (gnus-summary-update-mark): Would but out on eob.