*** pub/sgnus/lisp/dgnushack.el Sat Feb 3 15:27:02 1996 --- sgnus/lisp/dgnushack.el Sun Feb 4 18:43:14 1996 *************** *** 18,25 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 18,26 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *************** *** 28,33 **** --- 29,35 ---- (setq load-path (cons "." load-path)) (defun dgnushack-compile () + ;(setq byte-compile-dynamic t) (let ((files (directory-files "." nil ".el$")) (xemacs (string-match "XEmacs" emacs-version)) byte-compile-warnings file) *** pub/sgnus/lisp/gnus-cache.el Sat Feb 3 15:27:02 1996 --- sgnus/lisp/gnus-cache.el Sun Feb 4 18:07:44 1996 *************** *** 17,24 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 17,25 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *** pub/sgnus/lisp/gnus-cite.el Sat Feb 3 15:27:02 1996 --- sgnus/lisp/gnus-cite.el Sun Feb 4 18:07:44 1996 *************** *** 17,24 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 17,25 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *** pub/sgnus/lisp/gnus-cus.el Sat Feb 3 15:27:02 1996 --- sgnus/lisp/gnus-cus.el Sun Feb 4 18:07:45 1996 *************** *** 18,25 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 18,26 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *** pub/sgnus/lisp/gnus-demon.el Sat Feb 3 15:27:02 1996 --- sgnus/lisp/gnus-demon.el Sun Feb 4 18:07:45 1996 *************** *** 17,24 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 17,25 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *** pub/sgnus/lisp/gnus-ems.el Sat Feb 3 15:27:02 1996 --- sgnus/lisp/gnus-ems.el Sun Feb 4 18:07:46 1996 *************** *** 17,24 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 17,25 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *** pub/sgnus/lisp/gnus-kill.el Sat Feb 3 15:27:02 1996 --- sgnus/lisp/gnus-kill.el Sun Feb 4 18:07:46 1996 *************** *** 18,25 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 18,26 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *** pub/sgnus/lisp/gnus-mh.el Sat Feb 3 15:27:02 1996 --- sgnus/lisp/gnus-mh.el Sun Feb 4 18:07:46 1996 *************** *** 18,25 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 18,26 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *** pub/sgnus/lisp/gnus-msg.el Sat Feb 3 15:27:03 1996 --- sgnus/lisp/gnus-msg.el Sun Feb 4 18:07:48 1996 *************** *** 18,25 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 18,26 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *************** *** 233,239 **** (defvar gnus-deletable-headers '(Message-ID Date) "*Headers to be deleted if they already exists and were generated by Gnus previously.") ! (defvar gnus-removable-headers '(NNTP-Posting-Host Bcc Xref) "*Headers to be removed unconditionally before posting.") (defvar gnus-article-expires 14 --- 234,240 ---- (defvar gnus-deletable-headers '(Message-ID Date) "*Headers to be deleted if they already exists and were generated by Gnus previously.") ! (defvar gnus-removable-headers '(NNTP-Posting-Host Xref) "*Headers to be removed unconditionally before posting.") (defvar gnus-article-expires 14 *************** *** 746,752 **** (forward-line 1) (insert gnus-mail-courtesy-message))) ! (gnus-mail-send) (kill-buffer (current-buffer)) (gnus-message 5 "Sending via mail...done")))))) --- 747,753 ---- (forward-line 1) (insert gnus-mail-courtesy-message))) ! (gnus-mail-send t) (kill-buffer (current-buffer)) (gnus-message 5 "Sending via mail...done")))))) *************** *** 2575,2590 **** ;;; Sending mail. ! (defun gnus-mail-send () "Send the current buffer as mail. Headers will be generated before sending." (interactive) ! (save-excursion ! (save-restriction ! (widen) ! (gnus-inews-narrow-to-headers) ! (gnus-inews-insert-headers gnus-required-mail-headers) ! (gnus-inews-remove-empty-headers))) (widen) ;; Remove the header separator. (goto-char (point-min)) --- 2576,2592 ---- ;;; Sending mail. ! (defun gnus-mail-send (&optional no-generated-headers) "Send the current buffer as mail. Headers will be generated before sending." (interactive) ! (unless no-generated-headers ! (save-excursion ! (save-restriction ! (widen) ! (gnus-inews-narrow-to-headers) ! (gnus-inews-insert-headers gnus-required-mail-headers) ! (gnus-inews-remove-empty-headers)))) (widen) ;; Remove the header separator. (goto-char (point-min)) *** pub/sgnus/lisp/gnus-nocem.el Sat Feb 3 15:27:04 1996 --- sgnus/lisp/gnus-nocem.el Sun Feb 4 18:07:48 1996 *************** *** 17,24 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 17,25 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *** pub/sgnus/lisp/gnus-salt.el Sat Feb 3 15:27:04 1996 --- sgnus/lisp/gnus-salt.el Sun Feb 4 18:07:49 1996 *************** *** 16,23 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 16,24 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *************** *** 582,588 **** (gnus-get-tree-buffer)) (defun gnus-tree-close (group) ! (gnus-kill-buffer gnus-tree-buffer)) (defun gnus-highlight-selected-tree (article) "Highlight the selected article in the tree." --- 583,590 ---- (gnus-get-tree-buffer)) (defun gnus-tree-close (group) ! ;(gnus-kill-buffer gnus-tree-buffer) ! ) (defun gnus-highlight-selected-tree (article) "Highlight the selected article in the tree." *** pub/sgnus/lisp/gnus-score.el Sat Feb 3 15:27:05 1996 --- sgnus/lisp/gnus-score.el Sun Feb 4 18:07:51 1996 *************** *** 18,25 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 18,26 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *** pub/sgnus/lisp/gnus-setup.el Sat Feb 3 15:27:05 1996 --- sgnus/lisp/gnus-setup.el Sun Feb 4 18:07:51 1996 *************** *** 17,24 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: ;; My head is starting to spin with all the different mail/news packages. --- 17,25 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;; My head is starting to spin with all the different mail/news packages. *** pub/sgnus/lisp/gnus-soup.el Sat Feb 3 15:27:05 1996 --- sgnus/lisp/gnus-soup.el Sun Feb 4 18:07:51 1996 *************** *** 18,25 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 18,26 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *************** *** 133,148 **** (while articles ;; Find the header of the article. (set-buffer gnus-summary-buffer) ! (setq headers (gnus-summary-article-header (car articles))) ! ;; Put the article in a buffer. ! (set-buffer tmp-buf) ! (when (gnus-request-article-this-buffer ! (car articles) gnus-newsgroup-name) ! (gnus-soup-store gnus-soup-directory prefix headers ! gnus-soup-encoding-type ! gnus-soup-index-type) ! (gnus-soup-area-set-number ! area (1+ (or (gnus-soup-area-number area) 0)))) ;; Mark article as read. (set-buffer gnus-summary-buffer) (gnus-summary-remove-process-mark (car articles)) --- 134,149 ---- (while articles ;; Find the header of the article. (set-buffer gnus-summary-buffer) ! (when (setq headers (gnus-summary-article-header (car articles))) ! ;; Put the article in a buffer. ! (set-buffer tmp-buf) ! (when (gnus-request-article-this-buffer ! (car articles) gnus-newsgroup-name) ! (gnus-soup-store gnus-soup-directory prefix headers ! gnus-soup-encoding-type ! gnus-soup-index-type) ! (gnus-soup-area-set-number ! area (1+ (or (gnus-soup-area-number area) 0))))) ;; Mark article as read. (set-buffer gnus-summary-buffer) (gnus-summary-remove-process-mark (car articles)) *************** *** 256,269 **** msg-buf))) (defun gnus-soup-group-brew (group) (let ((gnus-expert-user t) (gnus-large-newsgroup nil)) ! (and (gnus-summary-read-group group) ! (let ((gnus-newsgroup-processable ! (gnus-sorted-complement ! gnus-newsgroup-unreads ! (append gnus-newsgroup-dormant gnus-newsgroup-marked)))) ! (gnus-soup-add-article nil))) (gnus-summary-exit))) (defun gnus-soup-insert-idx (offset header) --- 257,272 ---- msg-buf))) (defun gnus-soup-group-brew (group) + "Enter GROUP and add all articles to a SOUP package." (let ((gnus-expert-user t) (gnus-large-newsgroup nil)) ! (when (gnus-summary-read-group group nil nil nil t) ! (let ((gnus-newsgroup-processable ! (nreverse ! (gnus-sorted-complement ! gnus-newsgroup-unreads ! (append gnus-newsgroup-dormant gnus-newsgroup-marked))))) ! (gnus-soup-add-article nil))) (gnus-summary-exit))) (defun gnus-soup-insert-idx (offset header) *************** *** 487,498 **** (int-to-string (cdr entry)))) (defun gnus-soup-unpack-packet (dir unpacker packet) (gnus-make-directory dir) (message "Unpacking: %s" (format unpacker packet)) ! (call-process ! "sh" nil nil nil "-c" ! (format "cd %s ; %s" (expand-file-name dir) (format unpacker packet))) ! (message "Unpacking...done")) (defun gnus-soup-send-packet (packet) (gnus-soup-unpack-packet --- 490,505 ---- (int-to-string (cdr entry)))) (defun gnus-soup-unpack-packet (dir unpacker packet) + "Unpack PACKET into DIR using UNPACKER. + Return whether the unpacking was successful." (gnus-make-directory dir) (message "Unpacking: %s" (format unpacker packet)) ! (prog1 ! (zerop (call-process ! "sh" nil nil nil "-c" ! (format "cd %s ; %s" (expand-file-name dir) ! (format unpacker packet)))) ! (message "Unpacking...done"))) (defun gnus-soup-send-packet (packet) (gnus-soup-unpack-packet *** pub/sgnus/lisp/gnus-srvr.el Sat Feb 3 15:27:05 1996 --- sgnus/lisp/gnus-srvr.el Sun Feb 4 18:07:52 1996 *************** *** 17,24 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 17,25 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *** pub/sgnus/lisp/gnus-topic.el Sat Feb 3 15:27:05 1996 --- sgnus/lisp/gnus-topic.el Sun Feb 4 18:07:52 1996 *************** *** 18,25 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 18,26 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *** pub/sgnus/lisp/gnus-uu.el Sat Feb 3 15:27:07 1996 --- sgnus/lisp/gnus-uu.el Sun Feb 4 18:07:54 1996 *************** *** 18,25 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 18,26 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *************** *** 900,908 **** (setcar files (nconc (list (if (string= action "gnus-uu-archive") (cons 'action "file") (cons 'action action)) ! (cons 'execute (if (string-match "%" action) ! (format action name) ! (concat action " " name)))) (car files)))) (setq files (cdr files))) ofiles)) --- 901,908 ---- (setcar files (nconc (list (if (string= action "gnus-uu-archive") (cons 'action "file") (cons 'action action)) ! (cons 'execute (gnus-uu-command ! action name))) (car files)))) (setq files (cdr files))) ofiles)) *** pub/sgnus/lisp/gnus-vis.el Sat Feb 3 15:27:08 1996 --- sgnus/lisp/gnus-vis.el Sun Feb 4 18:07:55 1996 *************** *** 18,25 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 18,26 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *** pub/sgnus/lisp/gnus-vm.el Sat Feb 3 15:27:08 1996 --- sgnus/lisp/gnus-vm.el Sun Feb 4 18:07:56 1996 *************** *** 17,24 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 17,25 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *** pub/sgnus/lisp/gnus-xmas.el Sat Feb 3 15:27:08 1996 --- sgnus/lisp/gnus-xmas.el Sun Feb 4 18:07:56 1996 *************** *** 17,24 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 17,25 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *** pub/sgnus/lisp/gnus.el Sat Feb 3 15:27:10 1996 --- sgnus/lisp/gnus.el Sun Feb 4 18:08:02 1996 *************** *** 1177,1183 **** This restriction may disappear in later versions of Gnus.") (defvar gnus-summary-dummy-line-format ! "* %(: :%) %S\n" "*The format specification for the dummy roots in the summary buffer. It works along the same lines as a normal formatting string, with some simple extensions. --- 1177,1183 ---- This restriction may disappear in later versions of Gnus.") (defvar gnus-summary-dummy-line-format ! "* %(: :%) %S\n" "*The format specification for the dummy roots in the summary buffer. It works along the same lines as a normal formatting string, with some simple extensions. *************** *** 1682,1688 **** "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version "September Gnus v0.34" "Version number for this version of Gnus.") (defvar gnus-info-nodes --- 1682,1688 ---- "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version "September Gnus v0.35" "Version number for this version of Gnus.") (defvar gnus-info-nodes *************** *** 3272,3278 **** ;; Either remove all windows or just remove all Gnus windows. (if gnus-use-full-window ! (delete-other-windows) (gnus-remove-some-windows) (switch-to-buffer nntp-server-buffer)) --- 3272,3281 ---- ;; Either remove all windows or just remove all Gnus windows. (if gnus-use-full-window ! (mapcar (lambda (frame) ! (select-frame frame) ! (delete-other-windows)) ! (frame-list)) (gnus-remove-some-windows) (switch-to-buffer nntp-server-buffer)) *************** *** 7808,7814 **** (reverse gnus-article-sort-functions)))))) (gnus-message 7 "Sorting articles...") (prog1 ! (sort articles func) (gnus-message 7 "Sorting articles...done"))))) (defun gnus-make-sort-function (funs) --- 7811,7817 ---- (reverse gnus-article-sort-functions)))))) (gnus-message 7 "Sorting articles...") (prog1 ! (setq gnus-newsgroup-headers (sort articles func)) (gnus-message 7 "Sorting articles...done"))))) (defun gnus-make-sort-function (funs) *************** *** 8039,8045 **** gnus-tmp-header nil)) ;; If the article lies outside the current limit, ;; then we do not display it. ! ((not (memq number gnus-newsgroup-limit)) (setq gnus-tmp-gathered (nconc (mapcar (lambda (h) (mail-header-number (car h))) --- 8042,8049 ---- gnus-tmp-header nil)) ;; If the article lies outside the current limit, ;; then we do not display it. ! ((and (not (memq number gnus-newsgroup-limit)) ! (not gnus-tmp-dummy-line)) (setq gnus-tmp-gathered (nconc (mapcar (lambda (h) (mail-header-number (car h))) *************** *** 8068,8162 **** (when gnus-tmp-header ;; We may have an old dummy line to output before this ;; article. ! (when gnus-tmp-dummy-line ! (gnus-summary-insert-dummy-line ! gnus-tmp-dummy-line (mail-header-number gnus-tmp-header)) ! (setq gnus-tmp-dummy-line nil)) ! ! ;; Compute the mark. ! (setq ! gnus-tmp-unread ! (cond ! ((memq number gnus-newsgroup-unreads) gnus-unread-mark) ! ((memq number gnus-newsgroup-marked) gnus-ticked-mark) ! ((memq number gnus-newsgroup-dormant) gnus-dormant-mark) ! ((memq number gnus-newsgroup-expirable) gnus-expirable-mark) ! (t (or (cdr (assq number gnus-newsgroup-reads)) ! gnus-ancient-mark)))) ! ! (push (gnus-data-make number gnus-tmp-unread (1+ (point)) ! gnus-tmp-header gnus-tmp-level) ! gnus-newsgroup-data) ! ! ;; Actually insert the line. ! (setq ! gnus-tmp-subject-or-nil ! (cond ! ((and gnus-thread-ignore-subject ! gnus-tmp-prev-subject ! (not (inline (gnus-subject-equal ! gnus-tmp-prev-subject subject)))) ! subject) ! ((zerop gnus-tmp-level) ! (if (and (eq gnus-summary-make-false-root 'empty) ! (memq number gnus-tmp-gathered) ! gnus-tmp-prev-subject ! (inline (gnus-subject-equal ! gnus-tmp-prev-subject subject))) ! gnus-summary-same-subject ! subject)) ! (t gnus-summary-same-subject))) ! (if (and (eq gnus-summary-make-false-root 'adopt) ! (= gnus-tmp-level 1) ! (memq number gnus-tmp-gathered)) ! (setq gnus-tmp-opening-bracket ?\< ! gnus-tmp-closing-bracket ?\>) ! (setq gnus-tmp-opening-bracket ?\[ ! gnus-tmp-closing-bracket ?\])) ! (setq ! gnus-tmp-indentation ! (aref gnus-thread-indent-array gnus-tmp-level) ! gnus-tmp-lines (mail-header-lines gnus-tmp-header) ! gnus-tmp-score (or (cdr (assq number gnus-newsgroup-scored)) ! gnus-summary-default-score 0) ! gnus-tmp-score-char ! (if (or (null gnus-summary-default-score) ! (<= (abs (- gnus-tmp-score gnus-summary-default-score)) ! gnus-summary-zcore-fuzz)) ? ! (if (< gnus-tmp-score gnus-summary-default-score) ! gnus-score-below-mark gnus-score-over-mark)) ! gnus-tmp-replied ! (cond ((memq number gnus-newsgroup-processable) ! gnus-process-mark) ! ((memq number gnus-newsgroup-cached) ! gnus-cached-mark) ! ((memq number gnus-newsgroup-replied) ! gnus-replied-mark) ! (t gnus-unread-mark)) ! gnus-tmp-from (mail-header-from gnus-tmp-header) ! gnus-tmp-name ! (cond ! ((string-match "(.+)" gnus-tmp-from) ! (substring gnus-tmp-from ! (1+ (match-beginning 0)) (1- (match-end 0)))) ! ((string-match "<[^>]+> *$" gnus-tmp-from) ! (setq beg-match (match-beginning 0)) ! (or (and (string-match "^\"[^\"]*\"" gnus-tmp-from) ! (substring gnus-tmp-from (1+ (match-beginning 0)) ! (1- (match-end 0)))) ! (substring gnus-tmp-from 0 beg-match))) ! (t gnus-tmp-from))) ! (when (string= gnus-tmp-name "") ! (setq gnus-tmp-name gnus-tmp-from)) ! (or (numberp gnus-tmp-lines) (setq gnus-tmp-lines 0)) ! (put-text-property ! (point) ! (progn (eval gnus-summary-line-format-spec) (point)) ! 'gnus-number number) ! (when gnus-visual-p ! (forward-line -1) ! (run-hooks 'gnus-summary-update-hook) ! (forward-line 1)) (setq gnus-tmp-prev-subject subject))) --- 8072,8169 ---- (when gnus-tmp-header ;; We may have an old dummy line to output before this ;; article. ! (if gnus-tmp-dummy-line ! (progn ! (gnus-summary-insert-dummy-line ! gnus-tmp-dummy-line (mail-header-number gnus-tmp-header)) ! (setq gnus-tmp-dummy-line nil)) ! ! ;; Compute the mark. ! (setq ! gnus-tmp-unread ! (cond ! ((memq number gnus-newsgroup-unreads) gnus-unread-mark) ! ((memq number gnus-newsgroup-marked) gnus-ticked-mark) ! ((memq number gnus-newsgroup-dormant) gnus-dormant-mark) ! ((memq number gnus-newsgroup-expirable) gnus-expirable-mark) ! (t (or (cdr (assq number gnus-newsgroup-reads)) ! gnus-ancient-mark)))) ! ! (push (gnus-data-make number gnus-tmp-unread (1+ (point)) ! gnus-tmp-header gnus-tmp-level) ! gnus-newsgroup-data) ! ! ;; Actually insert the line. ! (setq ! gnus-tmp-subject-or-nil ! (cond ! ((and gnus-thread-ignore-subject ! gnus-tmp-prev-subject ! (not (inline (gnus-subject-equal ! gnus-tmp-prev-subject subject)))) ! subject) ! ((zerop gnus-tmp-level) ! (if (and (eq gnus-summary-make-false-root 'empty) ! (memq number gnus-tmp-gathered) ! gnus-tmp-prev-subject ! (inline (gnus-subject-equal ! gnus-tmp-prev-subject subject))) ! gnus-summary-same-subject ! subject)) ! (t gnus-summary-same-subject))) ! (if (and (eq gnus-summary-make-false-root 'adopt) ! (= gnus-tmp-level 1) ! (memq number gnus-tmp-gathered)) ! (setq gnus-tmp-opening-bracket ?\< ! gnus-tmp-closing-bracket ?\>) ! (setq gnus-tmp-opening-bracket ?\[ ! gnus-tmp-closing-bracket ?\])) ! (setq ! gnus-tmp-indentation ! (aref gnus-thread-indent-array gnus-tmp-level) ! gnus-tmp-lines (mail-header-lines gnus-tmp-header) ! gnus-tmp-score (or (cdr (assq number gnus-newsgroup-scored)) ! gnus-summary-default-score 0) ! gnus-tmp-score-char ! (if (or (null gnus-summary-default-score) ! (<= (abs (- gnus-tmp-score gnus-summary-default-score)) ! gnus-summary-zcore-fuzz)) ? ! (if (< gnus-tmp-score gnus-summary-default-score) ! gnus-score-below-mark gnus-score-over-mark)) ! gnus-tmp-replied ! (cond ((memq number gnus-newsgroup-processable) ! gnus-process-mark) ! ((memq number gnus-newsgroup-cached) ! gnus-cached-mark) ! ((memq number gnus-newsgroup-replied) ! gnus-replied-mark) ! (t gnus-unread-mark)) ! gnus-tmp-from (mail-header-from gnus-tmp-header) ! gnus-tmp-name ! (cond ! ((string-match "(.+)" gnus-tmp-from) ! (substring gnus-tmp-from ! (1+ (match-beginning 0)) (1- (match-end 0)))) ! ((string-match "<[^>]+> *$" gnus-tmp-from) ! (setq beg-match (match-beginning 0)) ! (or (and (string-match "^\"[^\"]*\"" gnus-tmp-from) ! (substring gnus-tmp-from (1+ (match-beginning 0)) ! (1- (match-end 0)))) ! (substring gnus-tmp-from 0 beg-match))) ! (t gnus-tmp-from))) ! (when (string= gnus-tmp-name "") ! (setq gnus-tmp-name gnus-tmp-from)) ! (or (numberp gnus-tmp-lines) (setq gnus-tmp-lines 0)) ! (put-text-property ! (point) ! (progn (eval gnus-summary-line-format-spec) (point)) ! 'gnus-number number) ! (when gnus-visual-p ! (forward-line -1) ! (run-hooks 'gnus-summary-update-hook) ! (forward-line 1)) ! ! ) (setq gnus-tmp-prev-subject subject))) *************** *** 9433,9439 **** ;; not garbage-collected, it seems. This would the lead to en ;; ever-growing Emacs. (gnus-summary-clear-local-variables) ! (bury-buffer gnus-article-buffer) ;; We clear the global counterparts of the buffer-local ;; variables as well, just to be on the safe side. (gnus-configure-windows 'group 'force) --- 9440,9447 ---- ;; not garbage-collected, it seems. This would the lead to en ;; ever-growing Emacs. (gnus-summary-clear-local-variables) ! (when (get-buffer gnus-article-buffer) ! (bury-buffer gnus-article-buffer)) ;; We clear the global counterparts of the buffer-local ;; variables as well, just to be on the safe side. (gnus-configure-windows 'group 'force) *************** *** 9482,9488 **** (kill-buffer gnus-summary-buffer))) (when gnus-use-trees (gnus-tree-close group)) ! (bury-buffer gnus-article-buffer) ;; Return to the group buffer. (gnus-configure-windows 'group 'force) ;; Clear the current group name. --- 9490,9497 ---- (kill-buffer gnus-summary-buffer))) (when gnus-use-trees (gnus-tree-close group)) ! (when (get-buffer gnus-article-buffer) ! (bury-buffer gnus-article-buffer)) ;; Return to the group buffer. (gnus-configure-windows 'group 'force) ;; Clear the current group name. *************** *** 9807,9813 **** (setq did article)) (if (or all-headers gnus-show-all-headers) (gnus-article-show-all-headers)) ! t)) (if did (gnus-article-set-window-start (cdr (assq article gnus-newsgroup-bookmarks))))))) --- 9816,9822 ---- (setq did article)) (if (or all-headers gnus-show-all-headers) (gnus-article-show-all-headers)) ! 'old)) (if did (gnus-article-set-window-start (cdr (assq article gnus-newsgroup-bookmarks))))))) *************** *** 10001,10014 **** (interactive "p") (gnus-set-global-variables) (gnus-configure-windows 'article) ! (or (gnus-summary-select-article nil nil 'pseudo) ! (gnus-eval-in-buffer-window ! gnus-article-buffer ! (cond ((> lines 0) ! (if (gnus-article-next-page lines) ! (gnus-message 3 "End of message"))) ! ((< lines 0) ! (gnus-article-prev-page (- lines)))))) (gnus-summary-recenter) (gnus-summary-position-point)) --- 10010,10023 ---- (interactive "p") (gnus-set-global-variables) (gnus-configure-windows 'article) ! (when (eq (gnus-summary-select-article nil nil 'pseudo) 'old) ! (gnus-eval-in-buffer-window ! gnus-article-buffer ! (cond ((> lines 0) ! (if (gnus-article-next-page lines) ! (gnus-message 3 "End of message"))) ! ((< lines 0) ! (gnus-article-prev-page (- lines)))))) (gnus-summary-recenter) (gnus-summary-position-point)) *************** *** 10131,10140 **** If given a prefix, remove all limits." (interactive "P") (gnus-set-global-variables) ! (prog2 ! (if total (setq gnus-newsgroup-limits ! (list (mapcar (lambda (h) (mail-header-number h)) ! gnus-newsgroup-headers)))) (gnus-summary-limit nil 'pop) (gnus-summary-position-point))) --- 10140,10152 ---- If given a prefix, remove all limits." (interactive "P") (gnus-set-global-variables) ! (when total ! (setq gnus-newsgroup-limits ! (list (mapcar (lambda (h) (mail-header-number h)) ! gnus-newsgroup-headers)))) ! (unless gnus-newsgroup-limits ! (error "No limit to pop")) ! (prog1 (gnus-summary-limit nil 'pop) (gnus-summary-position-point))) *************** *** 10545,10560 **** gnus-newsgroup-name (list 'nndoc "")) gnus-current-article)) (ogroup gnus-newsgroup-name) ! (buf (current-buffer))) (save-excursion ! (set-buffer gnus-original-article-buffer) (goto-char (point-min)) ! (search-forward "\n\n" nil t) ! (narrow-to-region (point) (point-max))) (unwind-protect (if (gnus-group-read-ephemeral-group name `(nndoc ,name (nndoc-address ! ,(get-buffer gnus-original-article-buffer)) (nndoc-article-type ,(if force 'digest 'guess))) t) ;; Make all postings to this group go to the parent group. (setcdr (nthcdr 4 (gnus-get-info name)) --- 10557,10578 ---- gnus-newsgroup-name (list 'nndoc "")) gnus-current-article)) (ogroup gnus-newsgroup-name) ! (case-fold-search t) ! (buf (current-buffer)) ! dig) (save-excursion ! (setq dig (nnheader-set-temp-buffer " *gnus digest buffer*")) ! (insert-buffer-substring gnus-original-article-buffer) ! (narrow-to-region ! (goto-char (point-min)) ! (or (search-forward "\n\n" nil t) (point))) (goto-char (point-min)) ! (delete-matching-lines "^\\(Path\\):") ! (widen)) (unwind-protect (if (gnus-group-read-ephemeral-group name `(nndoc ,name (nndoc-address ! ,(get-buffer dig)) (nndoc-article-type ,(if force 'digest 'guess))) t) ;; Make all postings to this group go to the parent group. (setcdr (nthcdr 4 (gnus-get-info name)) *************** *** 10564,10572 **** (gnus-set-global-variables) (gnus-configure-windows 'summary) (gnus-message 3 "Article couldn't be entered?")) ! (save-excursion ! (set-buffer gnus-original-article-buffer) ! (widen))))) (defun gnus-summary-isearch-article (&optional regexp-p) "Do incremental search forward on the current article. --- 10582,10588 ---- (gnus-set-global-variables) (gnus-configure-windows 'summary) (gnus-message 3 "Article couldn't be entered?")) ! (kill-buffer dig)))) (defun gnus-summary-isearch-article (&optional regexp-p) "Do incremental search forward on the current article. *************** *** 11170,11191 **** If FORCE is non-nil, allow editing of articles even in read-only groups." (interactive "P") ! (gnus-set-global-variables) ! (when (and (not force) ! (gnus-group-read-only-p)) ! (error "The current newsgroup does not support article editing.")) ! (gnus-summary-select-article t nil t) ! (gnus-configure-windows 'article) ! (select-window (get-buffer-window gnus-article-buffer)) ! (gnus-message 6 "C-c C-c to end edits") ! (setq buffer-read-only nil) ! (text-mode) ! (use-local-map (copy-keymap (current-local-map))) ! (local-set-key "\C-c\C-c" 'gnus-summary-edit-article-done) ! (buffer-enable-undo) ! (widen) ! (goto-char (point-min)) ! (search-forward "\n\n" nil t)) (defun gnus-summary-edit-article-done () "Make edits to the current article permanent." --- 11186,11209 ---- If FORCE is non-nil, allow editing of articles even in read-only groups." (interactive "P") ! (save-excursion ! (set-buffer gnus-summary-buffer) ! (gnus-set-global-variables) ! (when (and (not force) ! (gnus-group-read-only-p)) ! (error "The current newsgroup does not support article editing.")) ! (gnus-summary-select-article t nil t) ! (gnus-configure-windows 'article) ! (select-window (get-buffer-window gnus-article-buffer)) ! (gnus-message 6 "C-c C-c to end edits") ! (setq buffer-read-only nil) ! (text-mode) ! (use-local-map (copy-keymap (current-local-map))) ! (local-set-key "\C-c\C-c" 'gnus-summary-edit-article-done) ! (buffer-enable-undo) ! (widen) ! (goto-char (point-min)) ! (search-forward "\n\n" nil t))) (defun gnus-summary-edit-article-done () "Make edits to the current article permanent." *************** *** 12075,12089 **** ;; Go forward until either the buffer ends or the subthread ;; ends. (when (and (not (eobp)) ! (or (and (zerop (gnus-summary-next-thread 1 t)) ! (gnus-summary-find-prev)) (goto-char (gnus-data-pos (car (gnus-data-list 'rev)))))) (setq end (point)) (prog1 (if (and (> (point) start) (search-backward "\n" start t)) (progn ! (subst-char-in-region start end ?\n ?\^M) (gnus-summary-goto-subject article)) (goto-char start) nil) --- 12093,12106 ---- ;; Go forward until either the buffer ends or the subthread ;; ends. (when (and (not (eobp)) ! (or (zerop (gnus-summary-next-thread 1 t)) (goto-char (gnus-data-pos (car (gnus-data-list 'rev)))))) (setq end (point)) (prog1 (if (and (> (point) start) (search-backward "\n" start t)) (progn ! (subst-char-in-region start (point) ?\n ?\^M) (gnus-summary-goto-subject article)) (goto-char start) nil) *************** *** 12252,12261 **** (defun gnus-summary-sort (predicate reverse) "Sort summary buffer by PREDICATE. REVERSE means reverse order." (gnus-set-global-variables) ! (let* ((gnus-thread-sort-functions ! (list (intern (format "gnus-thread-sort-by-%s" predicate)))) (gnus-article-sort-functions ! (list (intern (format "gnus-article-sort-by-%s" predicate)))) (buffer-read-only) (gnus-summary-prepare-hook nil)) ;; We do the sorting by regenerating the threads. --- 12269,12288 ---- (defun gnus-summary-sort (predicate reverse) "Sort summary buffer by PREDICATE. REVERSE means reverse order." (gnus-set-global-variables) ! (let* ((thread (intern (format "gnus-thread-sort-by-%s" predicate))) ! (article (intern (format "gnus-article-sort-by-%s" predicate))) ! (gnus-thread-sort-functions ! (list ! (if (not reverse) ! thread ! `(lambda (t1 t2) ! (,thread t2 t1))))) (gnus-article-sort-functions ! (list ! (if (not reverse) ! article ! `(lambda (t1 t2) ! (,article t2 t1))))) (buffer-read-only) (gnus-summary-prepare-hook nil)) ;; We do the sorting by regenerating the threads. *** pub/sgnus/lisp/nndir.el Sat Feb 3 15:27:10 1996 --- sgnus/lisp/nndir.el Sun Feb 4 18:08:15 1996 *************** *** 18,25 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 18,26 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *** pub/sgnus/lisp/nndoc.el Sat Feb 3 15:27:10 1996 --- sgnus/lisp/nndoc.el Sun Feb 4 18:08:15 1996 *************** *** 18,25 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 18,26 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *************** *** 326,332 **** (setcdr entry (list (cons 'head-end "^ ?$") ! (cons 'body-begin "^ \n") (cons 'article-begin b-delimiter) (cons 'body-end-function 'nndoc-digest-body-end) ; (cons 'body-end --- 327,333 ---- (setcdr entry (list (cons 'head-end "^ ?$") ! (cons 'body-begin "^ ?\n") (cons 'article-begin b-delimiter) (cons 'body-end-function 'nndoc-digest-body-end) ; (cons 'body-end *** pub/sgnus/lisp/nndraft.el Sat Feb 3 15:27:10 1996 --- sgnus/lisp/nndraft.el Sun Feb 4 18:08:16 1996 *************** *** 17,24 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 17,25 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *** pub/sgnus/lisp/nneething.el Sat Feb 3 15:27:10 1996 --- sgnus/lisp/nneething.el Sun Feb 4 18:08:16 1996 *************** *** 18,25 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 18,26 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *** pub/sgnus/lisp/nnfolder.el Sat Feb 3 15:27:10 1996 --- sgnus/lisp/nnfolder.el Sun Feb 4 18:08:16 1996 *************** *** 19,26 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 19,27 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *** pub/sgnus/lisp/nnkiboze.el Sat Feb 3 15:27:10 1996 --- sgnus/lisp/nnkiboze.el Sun Feb 4 18:08:20 1996 *************** *** 17,24 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 17,25 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *** pub/sgnus/lisp/nnmail.el Sat Feb 3 15:27:10 1996 --- sgnus/lisp/nnmail.el Sun Feb 4 18:08:21 1996 *************** *** 17,24 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 17,25 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *** pub/sgnus/lisp/nnmbox.el Sat Feb 3 15:27:10 1996 --- sgnus/lisp/nnmbox.el Sun Feb 4 18:08:21 1996 *************** *** 18,25 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 18,26 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *** pub/sgnus/lisp/nnmh.el Sat Feb 3 15:27:10 1996 --- sgnus/lisp/nnmh.el Sun Feb 4 18:08:21 1996 *************** *** 18,25 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 18,26 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *** pub/sgnus/lisp/nnml.el Sat Feb 3 15:27:10 1996 --- sgnus/lisp/nnml.el Sun Feb 4 18:08:21 1996 *************** *** 18,25 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 18,26 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *** pub/sgnus/lisp/nnsoup.el Sat Feb 3 15:27:10 1996 --- sgnus/lisp/nnsoup.el Sun Feb 4 18:08:22 1996 *************** *** 18,25 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 18,26 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *** pub/sgnus/lisp/nnspool.el Sat Feb 3 15:27:10 1996 --- sgnus/lisp/nnspool.el Sun Feb 4 18:08:22 1996 *************** *** 18,25 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 18,26 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *** pub/sgnus/lisp/nntp.el Sat Feb 3 15:27:11 1996 --- sgnus/lisp/nntp.el Sun Feb 4 18:08:23 1996 *************** *** 18,25 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 18,26 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *** pub/sgnus/lisp/nnvirtual.el Sat Feb 3 15:27:11 1996 --- sgnus/lisp/nnvirtual.el Sun Feb 4 18:08:23 1996 *************** *** 18,25 **** ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to ! ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: --- 18,26 ---- ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ! ;; along with GNU Emacs; see the file COPYING. If not, write to the ! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ! ;; Boston, MA 02111-1307, USA. ;;; Commentary: *** pub/sgnus/lisp/ChangeLog Sat Feb 3 15:27:17 1996 --- sgnus/lisp/ChangeLog Sun Feb 4 18:06:43 1996 *************** *** 1,6 **** --- 1,55 ---- + Sun Feb 4 16:22:20 1996 Lars Magne Ingebrigtsen + + * gnus.el (gnus-summary-edit-article): Make sure we're in the + summary buffer. + + Sun Feb 4 14:05:20 1996 Lars Magne Ingebrigtsen + + * nndoc.el (nndoc-guess-digest-type): Too strict body-begin for + MIME digests. + + * gnus-msg.el (gnus-removable-headers): Don't remove Bcc header. + (gnus-mail-send): Accept a parameter. + (gnus-inews-send-mail-copy): Use it. + + * gnus-salt.el (gnus-tree-close): Don't kill the tree buffer. + + * gnus.el (gnus-summary-select-article): Changed return value. + (gnus-summary-scroll-up): Use it. + + Sat Feb 3 20:39:59 1996 Lars Ingebrigtsen + + * gnus.el (gnus-summary-dummy-line-format): Included tabs. + (gnus-summary-prepare-threads): Insert dummy lines properly. + (gnus-summary-hide-thread): Hide dummies better. + + * gnus-uu.el (gnus-uu-get-actions): Escape special characters. + + * gnus-soup.el (gnus-soup-group-brew): Add articles in right + order; don't generate display. + + * gnus.el (gnus-summary-sort): Allow sorting in reverse order. + (gnus-summary-pop-limit): Don't pop if there isn't anything to + pop. + (gnus-sort-articles): Would destroy the newsgroup data. + + * gnus-soup.el (gnus-soup-unpack-packet): Return the process value. + + * gnus.el (gnus-summary-exit): Don't bury buffers that don't exist. + (gnus-summary-exit-no-update): Ditto. + + Sat Feb 3 14:37:31 1996 Lars Magne Ingebrigtsen + + * gnus-soup.el (gnus-soup-add-article): Would bug out on + non-existent articles. + + * gnus.el (gnus-configure-windows): Delete windows on all frames. + Sat Feb 3 15:07:38 1996 Lars Magne Ingebrigtsen * gnus.el (gnus-summary-read-group): Wouldn't score anything. + + * gnus.el: 0.34 is released. Sat Feb 3 13:08:48 1996 Lars Magne Ingebrigtsen