[gnus git] branch master updated: m0-7-195-gcf40167 =1= * nnmbox.el (nnmbox-request-article): Don't change point.

       via  cf40167fee40875a5a72bb1a1a3b4fe9eab29a2b (commit)
      from  7a856e9dcb781fd85d695b87d827aa061049a1c7 (commit)


- Log -----------------------------------------------------------------
commit cf40167fee40875a5a72bb1a1a3b4fe9eab29a2b
Author: Kan-Ru Chen (陳侃如) <[email protected]>
Date:   Thu Aug 1 23:10:09 2013 +0200

    * nnmbox.el (nnmbox-request-article): Don't change point.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3efb2ee..81fef13 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-08-01  Kan-Ru Chen (陳侃如)  <[email protected]>  (tiny change)
+
+	* nnmbox.el (nnmbox-request-article): Don't change point.
+
 2013-08-01  Lars Magne Ingebrigtsen  <[email protected]>
 
 	* gnus-icalendar.el (gnus-icalendar-event:inline-reply-buttons):
diff --git a/lisp/nnmbox.el b/lisp/nnmbox.el
index 3228eac..c605541 100644
--- a/lisp/nnmbox.el
+++ b/lisp/nnmbox.el
@@ -148,6 +148,7 @@
 (deffoo nnmbox-request-article (article &optional newsgroup server buffer)
   (nnmbox-possibly-change-newsgroup newsgroup server)
   (with-current-buffer nnmbox-mbox-buffer
+    (save-excursion
     (when (nnmbox-find-article article)
       (let (start stop)
 	(re-search-backward (concat "^" message-unix-mail-delimiter) nil t)
@@ -169,7 +170,7 @@
 	    (forward-line 1))
 	  (if (numberp article)
 	      (cons nnmbox-current-group article)
-	    (nnmbox-article-group-number nil)))))))
+              (nnmbox-article-group-number nil))))))))
 
 (deffoo nnmbox-request-group (group &optional server dont-check info)
   (nnmbox-possibly-change-newsgroup nil server)
@@ -255,8 +256,8 @@
 	  (if (setq is-old
 		    (nnmail-expired-article-p
 		     newsgroup
-		     (buffer-substring
-		      (point) (progn (end-of-line) (point))) force))
+		     (buffer-substring (point) (line-end-position))
+		     force))
 	      (progn
 		(unless (eq nnmail-expiry-target 'delete)
 		  (with-temp-buffer

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog |    4 ++++
 lisp/nnmbox.el |   53 +++++++++++++++++++++++++++--------------------------
 2 files changed, 31 insertions(+), 26 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project