Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

*** empty log message ***

  • Loading branch information...
commit 54badf3604d4eb1fd8d94b987310dc265a743276 1 parent 2314ec9
Lars Ingebrigtsen authored March 22, 1997
35  lisp/ChangeLog
... ...
@@ -1,3 +1,38 @@
  1
+Sat Mar 22 15:42:53 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
  2
+
  3
+	* gnus.el: Gnus v5.4.34 is released.
  4
+
  5
+Sat Mar 22 01:37:00 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
  6
+
  7
+	* gnus-sum.el (gnus-summary-move-article): Understand 'junk.
  8
+
  9
+	* nnml.el (nnml-request-accept-article): Return 'junk when legal.
  10
+
  11
+	* gnus-sum.el (gnus-summary-respool-query): Message better, and
  12
+	return right value.
  13
+
  14
+	* nnmail.el (nnmail-split-abbrev-alist): New `to' and `from'
  15
+	abbrevs. 
  16
+
  17
+Wed Mar 19 19:36:25 1997  Dewey M. Sasser  <dewey@newvision.com>
  18
+
  19
+	* message.el (message-make-from): Changed so that
  20
+	message-from-style value is captured from message buffer instead
  21
+	of temp buffer.
  22
+
  23
+Sat Mar 22 00:47:39 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
  24
+
  25
+	* gnus-srvr.el (gnus-browse-foreign-server): Understand server
  26
+	names. 
  27
+
  28
+	* gnus-group.el (gnus-group-browse-foreign-server): Down methodize
  29
+	the server.
  30
+
  31
+Thu Mar 20 22:49:16 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
  32
+
  33
+	* nnfolder.el (nnfolder-read-folder): Do checking if there are new
  34
+	articles after the last nnfolder marker.
  35
+
1 36
 Thu Mar 20 17:33:54 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
2 37
 
3 38
 	* gnus.el: Gnus v5.4.33 is released.
4  lisp/gnus-group.el
@@ -3201,8 +3201,8 @@ and the second element is the address."
3201 3201
 		      "Address: "
3202 3202
 		      (mapcar (lambda (server) (list server))
3203 3203
 			      gnus-secondary-servers)))
3204  
-	     ;; We got a server name, so we find the method.
3205  
-	     (gnus-server-to-method how)))))
  3204
+	     ;; We got a server name.
  3205
+	     how))))
3206 3206
   (gnus-browse-foreign-server method))
3207 3207
 
3208 3208
 (defun gnus-group-set-info (info &optional method-only-group part)
5  lisp/gnus-srvr.el
@@ -530,8 +530,7 @@ The following commands are available:
530 530
        ["Select" gnus-browse-read-group t]
531 531
        ["Next" gnus-browse-next-group t]
532 532
        ["Prev" gnus-browse-next-group t]
533  
-       ["Exit" gnus-browse-exit t]
534  
-       ))
  533
+       ["Exit" gnus-browse-exit t]))
535 534
     (run-hooks 'gnus-browse-menu-hook)))
536 535
 
537 536
 (defvar gnus-browse-current-method nil)
@@ -543,6 +542,8 @@ The following commands are available:
543 542
   "Browse the server METHOD."
544 543
   (setq gnus-browse-current-method method)
545 544
   (setq gnus-browse-return-buffer return-buffer)
  545
+  (when (stringp method)
  546
+    (setq method (gnus-server-to-method method)))
546 547
   (let ((gnus-select-method method)
547 548
 	groups group)
548 549
     (gnus-message 5 "Connecting to %s..." (nth 1 method))
47  lisp/gnus-sum.el
@@ -6667,20 +6667,26 @@ and `request-accept' functions."
6667 6667
 	     (set-buffer copy-buf)
6668 6668
 	     ;; First put the article in the destination group.
6669 6669
 	     (gnus-request-article-this-buffer article gnus-newsgroup-name)
6670  
-	     (setq art-group
6671  
-		   (gnus-request-accept-article
6672  
-		    to-newsgroup select-method (not articles)))
6673  
-	     (setq new-xref (concat new-xref " " (car art-group)
6674  
-				    ":" (cdr art-group)))
6675  
-	     ;; Now we have the new Xrefs header, so we insert
6676  
-	     ;; it and replace the new article.
6677  
-	     (nnheader-replace-header "Xref" new-xref)
6678  
-	     (gnus-request-replace-article
6679  
-	      (cdr art-group) to-newsgroup (current-buffer))
6680  
-	     art-group)))))
6681  
-      (if (not art-group)
6682  
-	  (gnus-message 1 "Couldn't %s article %s"
6683  
-			(cadr (assq action names)) article)
  6670
+	     (when (consp (setq art-group
  6671
+				(gnus-request-accept-article
  6672
+				 to-newsgroup select-method (not articles))))
  6673
+	       (setq new-xref (concat new-xref " " (car art-group)
  6674
+				      ":" (cdr art-group)))
  6675
+	       ;; Now we have the new Xrefs header, so we insert
  6676
+	       ;; it and replace the new article.
  6677
+	       (nnheader-replace-header "Xref" new-xref)
  6678
+	       (gnus-request-replace-article
  6679
+		(cdr art-group) to-newsgroup (current-buffer))
  6680
+	       art-group))))))
  6681
+      (cond
  6682
+       ((not art-group)
  6683
+	(gnus-message 1 "Couldn't %s article %s"
  6684
+		      (cadr (assq action names)) article))
  6685
+       ((and (eq art-group 'junk)
  6686
+	     (eq action 'move))
  6687
+	(gnus-summary-mark-article article gnus-canceled-mark)
  6688
+	(gnus-message 4 "Deleted article %s" article))
  6689
+       (t
6684 6690
 	(let* ((entry
6685 6691
 		(or
6686 6692
 		 (gnus-gethash (car art-group) gnus-newsrc-hashtb)
@@ -6755,7 +6761,7 @@ and `request-accept' functions."
6755 6761
 
6756 6762
 	(gnus-summary-goto-subject article)
6757 6763
 	(when (eq action 'move)
6758  
-	  (gnus-summary-mark-article article gnus-canceled-mark)))
  6764
+	  (gnus-summary-mark-article article gnus-canceled-mark))))
6759 6765
       (gnus-summary-remove-process-mark article))
6760 6766
     ;; Re-activate all groups that have been moved to.
6761 6767
     (while to-groups
@@ -7068,7 +7074,7 @@ groups."
7068 7074
 
7069 7075
 ;;; Respooling
7070 7076
 
7071  
-(defun gnus-summary-respool-query ()
  7077
+(defun gnus-summary-respool-query (&optional silent)
7072 7078
   "Query where the respool algorithm would put this article."
7073 7079
   (interactive)
7074 7080
   (gnus-set-global-variables)
@@ -7078,8 +7084,13 @@ groups."
7078 7084
       (set-buffer gnus-original-article-buffer)
7079 7085
       (save-restriction
7080 7086
 	(message-narrow-to-head)
7081  
-	(message "This message would go to %s"
7082  
-		 (mapconcat 'car (nnmail-article-group 'identity) ", "))))))
  7087
+	(let ((groups (nnmail-article-group 'identity)))
  7088
+	  (unless silent
  7089
+	    (if groups
  7090
+		(message "This message would go to %s"
  7091
+			 (mapconcat 'car groups ", "))
  7092
+	      (message "This message would go to no groups"))
  7093
+	    groups))))))
7083 7094
 
7084 7095
 ;; Summary marking commands.
7085 7096
 
2  lisp/gnus.el
@@ -226,7 +226,7 @@ is restarted, and sometimes reloaded."
226 226
   :link '(custom-manual "(gnus)Exiting Gnus")
227 227
   :group 'gnus)
228 228
 
229  
-(defconst gnus-version-number "5.4.33"
  229
+(defconst gnus-version-number "5.4.34"
230 230
   "Version number for this version of Gnus.")
231 231
 
232 232
 (defconst gnus-version (format "Gnus v%s" gnus-version-number)
10  lisp/message.el
@@ -113,7 +113,6 @@
113 113
   :group 'message-buffers
114 114
   :type 'function)
115 115
 
116  
-;;;###autoload
117 116
 (defcustom message-fcc-handler-function 'message-output
118 117
   "*A function called to save outgoing articles.
119 118
 This function will be called with the name of the file to store the
@@ -2461,7 +2460,8 @@ to find out how to use this."
2461 2460
 
2462 2461
 (defun message-make-from ()
2463 2462
   "Make a From header."
2464  
-  (let* ((login (message-make-address))
  2463
+  (let* ((style message-from-style)
  2464
+	 (login (message-make-address))
2465 2465
 	 (fullname
2466 2466
 	  (or (and (boundp 'user-full-name)
2467 2467
 		   user-full-name)
@@ -2471,11 +2471,11 @@ to find out how to use this."
2471 2471
     (save-excursion
2472 2472
       (message-set-work-buffer)
2473 2473
       (cond
2474  
-       ((or (null message-from-style)
  2474
+       ((or (null style)
2475 2475
 	    (equal fullname ""))
2476 2476
 	(insert login))
2477  
-       ((or (eq message-from-style 'angles)
2478  
-	    (and (not (eq message-from-style 'parens))
  2477
+       ((or (eq style 'angles)
  2478
+	    (and (not (eq style 'parens))
2479 2479
 		 ;; Use angles if no quoting is needed, or if parens would
2480 2480
 		 ;; need quoting too.
2481 2481
 		 (or (not (string-match "[^- !#-'*+/-9=?A-Z^-~]" fullname))
2  lisp/nnfolder.el
@@ -682,6 +682,8 @@ time saver for large mailboxes.")
682 682
 			 (< maxid 2)))
683 683
 	    (goto-char (point-max))
684 684
 	    (unless (re-search-backward marker nil t)
  685
+	      (goto-char (point-min)))
  686
+	    (when (nnmail-search-unix-mail-delim)
685 687
 	      (goto-char (point-min))))
686 688
 
687 689
 	  ;; Keep track of the active number on our own, and insert it back
4  lisp/nnmail.el
@@ -393,7 +393,9 @@ Example:
393 393
 
394 394
 (defcustom nnmail-split-abbrev-alist
395 395
   '((any . "from\\|to\\|cc\\|sender\\|apparently-to\\|resent-from\\|resent-to\\|resent-cc")
396  
-    (mail . "mailer-daemon\\|postmaster\\|uucp"))
  396
+    (mail . "mailer-daemon\\|postmaster\\|uucp")
  397
+    (to . "to\\|cc\\|apparently-to\\|resent-to\\|resent-cc")
  398
+    (from . "from\\|sender\\|resent-from"))
397 399
   "Alist of abbreviations allowed in `nnmail-split-fancy'."
398 400
   :group 'nnmail-split
399 401
   :type '(repeat (cons :format "%v" symbol regexp)))
5  lisp/nnml.el
@@ -325,8 +325,9 @@ all.  This may very well take some time.")
325 325
 	   (and last (nnml-save-nov))))
326 326
       (and
327 327
        (nnmail-activate 'nnml)
328  
-       (setq result (car (nnml-save-mail
329  
-			  (nnmail-article-group 'nnml-active-number))))
  328
+       (if (not (setq result (nnmail-article-group 'nnml-active-number)))
  329
+	   (setq result 'junk)
  330
+	 (setq result (car (nnml-save-mail result))))
330 331
        (when last
331 332
 	 (nnmail-save-active nnml-group-alist nnml-active-file)
332 333
 	 (when nnmail-cache-accepted-message-ids
8  texi/gnus.texi
... ...
@@ -1,7 +1,7 @@
1 1
 \input texinfo                  @c -*-texinfo-*-
2 2
 
3 3
 @setfilename gnus
4  
-@settitle Gnus 5.4.33 Manual
  4
+@settitle Gnus 5.4.34 Manual
5 5
 @synindex fn cp
6 6
 @synindex vr cp
7 7
 @synindex pg cp
@@ -287,7 +287,7 @@ into another language, under the above conditions for modified versions.
287 287
 @tex
288 288
 
289 289
 @titlepage
290  
-@title Gnus 5.4.33 Manual
  290
+@title Gnus 5.4.34 Manual
291 291
 
292 292
 @author by Lars Magne Ingebrigtsen
293 293
 @page
@@ -323,7 +323,7 @@ can be gotten by any nefarious means you can think of---@sc{nntp}, local
323 323
 spool or your mbox file.  All at the same time, if you want to push your
324 324
 luck.
325 325
 
326  
-This manual corresponds to Gnus 5.4.33.
  326
+This manual corresponds to Gnus 5.4.34.
327 327
 
328 328
 @end ifinfo
329 329
 
@@ -8911,7 +8911,7 @@ Let's look at an example value of this variable first:
8911 8911
       (any "procmail@@informatik\\.rwth-aachen\\.de" "procmail.list")
8912 8912
       (any "SmartList@@informatik\\.rwth-aachen\\.de" "SmartList.list")
8913 8913
       ;; People...
8914  
-      (any "larsi@@ifi\\.uio\\.no" "people.Lars Magne Ingebrigtsen"))
  8914
+      (any "larsi@@ifi\\.uio\\.no" "people.Lars_Magne_Ingebrigtsen"))
8915 8915
    ;; Unmatched mail goes to the catch all group.
8916 8916
    "misc.misc")
8917 8917
 @end lisp
6  texi/message.texi
... ...
@@ -1,7 +1,7 @@
1 1
 \input texinfo                  @c -*-texinfo-*-
2 2
 
3 3
 @setfilename message
4  
-@settitle Message 5.4.33 Manual
  4
+@settitle Message 5.4.34 Manual
5 5
 @synindex fn cp
6 6
 @synindex vr cp
7 7
 @synindex pg cp
@@ -39,7 +39,7 @@ into another language, under the above conditions for modified versions.
39 39
 @tex
40 40
 
41 41
 @titlepage
42  
-@title Message 5.4.33 Manual
  42
+@title Message 5.4.34 Manual
43 43
 
44 44
 @author by Lars Magne Ingebrigtsen
45 45
 @page
@@ -79,7 +79,7 @@ buffers.
79 79
 * Key Index::         List of Message mode keys.
80 80
 @end menu
81 81
 
82  
-This manual corresponds to Message 5.4.33.  Message is distributed with
  82
+This manual corresponds to Message 5.4.34.  Message is distributed with
83 83
 the Gnus distribution bearing the same version number as this manual
84 84
 has. 
85 85
 

0 notes on commit 54badf3

Please sign in to comment.
Something went wrong with that request. Please try again.