From: morioka <morioka>
Date: Mon, 16 Feb 1998 15:36:14 +0000 (+0000)
Subject: Sync up with qgnus-0.27.
X-Git-Tag: gnus-6_7-tomo-199811302358~189
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=49c8668f09e7c18c9b77fe87986b9c5ef9a29a40;p=elisp%2Fgnus.git-

Sync up with qgnus-0.27.
---

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 4023819..1db55dd 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -4514,7 +4514,7 @@ The resulting hash table is returned, or nil if no Xrefs were found."
 			 (setq ref
 			       (buffer-substring
 				(1+ (point))
-				(search-backward "<" beg t)))
+				(or (search-backward "<" beg t) beg)))
 		       (setq ref nil))
 		     (goto-char beg))
 		   (gnus-nov-field))	; refs
@@ -5902,7 +5902,7 @@ If ALL-HEADERS is non-nil, no header lines are hidden."
   (interactive)
   (prog1
       (when gnus-last-article
-	(gnus-summary-goto-article gnus-last-article))
+	(gnus-summary-goto-article gnus-last-article nil t))
     (gnus-summary-position-point)))
 
 (defun gnus-summary-pop-article (number)
@@ -7250,13 +7250,14 @@ This will be the case if the article has both been mailed and posted."
 	;; through the expiry process.
 	(gnus-message 6 "Expiring articles...")
 	;; The list of articles that weren't expired is returned.
-	(if expiry-wait
-	    (let ((nnmail-expiry-wait-function nil)
-		  (nnmail-expiry-wait expiry-wait))
-	      (setq es (gnus-request-expire-articles
-			expirable gnus-newsgroup-name)))
-	  (setq es (gnus-request-expire-articles
-		    expirable gnus-newsgroup-name)))
+	(save-excursion
+	  (if expiry-wait
+	      (let ((nnmail-expiry-wait-function nil)
+		    (nnmail-expiry-wait expiry-wait))
+		(setq es (gnus-request-expire-articles
+			  expirable gnus-newsgroup-name)))
+	    (setq es (gnus-request-expire-articles
+		      expirable gnus-newsgroup-name))))
 	(unless total
 	  (setq gnus-newsgroup-expirable es))
 	;; We go through the old list of expirable, and mark all
@@ -7276,10 +7277,10 @@ This will be the case if the article has both been mailed and posted."
 This means that *all* articles that are marked as expirable will be
 deleted forever, right now."
   (interactive)
-  (or gnus-expert-user
-      (gnus-yes-or-no-p
-       "Are you really, really, really sure you want to delete all these messages? ")
-      (error "Phew!"))
+  (unless gnus-expert-user
+    (gnus-yes-or-no-p
+     "Are you really, really, really sure you want to delete all these messages? ")
+    (error "Phew!"))
   (gnus-summary-expire-articles t))
 
 ;; Suggested by Jack Vinson <vinson@unagi.cis.upenn.edu>.
@@ -7812,7 +7813,8 @@ marked."
     (push (cons article mark) gnus-newsgroup-reads)
     ;; Possibly remove from cache, if that is used.
     (when gnus-use-cache
-      (gnus-cache-enter-remove-article article))))
+      (gnus-cache-enter-remove-article article))
+    t))
 
 (defun gnus-mark-article-as-unread (article &optional mark)
   "Enter ARTICLE in the pertinent lists and remove it from others."