Mercurial > emacs

changeset 148:a099f0c77321

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Thu, 27 Dec 1990 20:45:59 +0000
parents 0f50f1badd75
children 3678204447b6
files lisp/mail/rmailsort.el
diffstat 1 files changed, 23 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmailsort.el	Wed Dec 26 22:28:51 1990 +0000
+++ b/lisp/mail/rmailsort.el	Thu Dec 27 20:45:59 1990 +0000
@@ -29,6 +29,7 @@
 (define-key rmail-mode-map "\C-c\C-s\C-a" 'rmail-sort-by-author)
 (define-key rmail-mode-map "\C-c\C-s\C-r" 'rmail-sort-by-recipient)
 (define-key rmail-mode-map "\C-c\C-s\C-c" 'rmail-sort-by-correspondent)
+(define-key rmail-mode-map "\C-c\C-s\C-l" 'rmail-sort-by-size-lines)
 
 (defun rmail-sort-by-date (reverse)
   "Sort messages of current Rmail file by date.
@@ -96,6 +97,17 @@
 	     (or (rmail-fetch-field msg (car fields)) ""))))
      (setq fields (cdr fields)))
    ans))
+
+(defun rmail-sort-by-size-lines (reverse)
+  "Sort messages of current Rmail file by message size.
+If prefix argument REVERSE is non-nil, sort them in reverse order."
+  (interactive "P")
+  (rmail-sort-messages reverse
+		       (function
+			(lambda (msg)
+			  (format "%9d"
+				  (count-lines (rmail-msgbeg msgnum)
+					       (rmail-msgend msgnum)))))))
 
 
 (defun rmail-sort-messages (reverse keyfunc)
@@ -113,6 +125,8 @@
 			  (buffer-substring
 			   (rmail-msgbeg msgnum) (rmail-msgend msgnum)))
 		    sort-lists))
+	(if (zerop (% msgnum 10))
+	    (message "Finding sort keys...%d" msgnum))
 	(setq msgnum (1+ msgnum))))
     (or reverse (setq sort-lists (nreverse sort-lists)))
     (setq sort-lists
@@ -123,12 +137,15 @@
     (if reverse (setq sort-lists (nreverse sort-lists)))
     (message "Reordering buffer...")
     (delete-region (rmail-msgbeg 1) (rmail-msgend rmail-total-messages))
-    (while sort-lists
-      (insert (cdr (car sort-lists)))
-      (setq sort-lists (cdr sort-lists)))
+    (let ((msgnum 1))
+      (while sort-lists
+	(insert (cdr (car sort-lists)))
+	(if (zerop (% msgnum 10))
+	    (message "Reordering buffer...%d" msgnum))
+	(setq sort-lists (cdr sort-lists))
+	(setq msgnum (1+ msgnum))))
     (rmail-set-message-counters)
-    (rmail-show-message)
-    ))
+    (rmail-show-message)))
 
 (defun rmail-fetch-field (msg field)
   "Return the value of the header field FIELD of MSG.
@@ -172,9 +189,7 @@
 	 ;; Time
 	 (substring date (match-beginning 4) (match-end 4)))
       ;; Cannot understand DATE string.
-      date
-      )
-    ))
+      date)))
 
 (defun rmail-date-full-year (year-string)
   (if (<= (length year-string) 2)