* mm updates (add '(:found <n>)' handling)

toys/mm/mm-hdrs.el

@@ -168,8 +168,24 @@ if provided, or at the end of the buffer otherwise."
 		    (propertize line 'face 'mm/unread-face))
 		  (t ;; else
 		    (propertize line 'face 'mm/header-face)))))
-    (mm/hdrs-add-header line (plist-get msg :docid) 
+    (mm/hdrs-add-header line (plist-get msg :docid)
       (if point point (point-max)))))
+
+
+(defun mm/hdrs-found-handler (count)
+  "Create a one line description of the number of headers found
+after the end of the search results."
+  (with-current-buffer mm/hdrs-buffer
+    (save-excursion
+      (goto-char (point-max))
+      (let ((inhibit-read-only t))
+	(insert (propertize
+		  (case count
+		    (0 "No matching messages found")
+		    (1 "Found 1 message")
+		    (otherwise (format "Found %d messages" count)))
+		  'face 'mm/system-face 'intangible t))))))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
@@ -188,25 +204,25 @@ if provided, or at the end of the buffer otherwise."
       (define-key map "q" 'mm/quit-buffer)
 ;;      (define-key map "o" 'mm/change-sort)
       (define-key map "g" 'mm/rerun-search)
-      
+
       ;; navigation
       (define-key map "n" 'mm/next-header)
       (define-key map "p" 'mm/prev-header)
       (define-key map "j" 'mm/jump-to-maildir)
-      
+
       ;; marking/unmarking/executing
       (define-key map "m" 'mm/mark-for-move)
 
       (define-key map (kbd "<backspace>") 'mm/mark-for-trash)
       (define-key map "d" 'mm/mark-for-trash)
-  
+
       (define-key map (kbd "<delete>") 'mm/mark-for-delete)
       (define-key map "D" 'mm/mark-for-delete)
-          
+
       (define-key map "u" 'mm/unmark)
       (define-key map "U" 'mm/unmark-all)
       (define-key map "x" 'mm/execute-marks)
-      
+
       ;; message composition
       (define-key map "r" 'mm/compose-reply)
       (define-key map "f" 'mm/compose-forward)
@@ -240,12 +256,12 @@ if provided, or at the end of the buffer otherwise."
 	(define-key menumap [search]  '("Search" . mm/search))
 	(define-key menumap [jump]  '("Jump to maildir" . mm/jump-to-maildir))
 	(define-key menumap [sepa3] '("--"))
-	
+
 	(define-key menumap [view]  '("View" . mm/view-message))
 	(define-key menumap [next]  '("Next" . mm/next-header))
 	(define-key menumap [previous]  '("Previous" . mm/prev-header))
 	(define-key menumap [sepa4] '("--")))
-      
+
 	;;(define-key menumap [draft]  '("Edit draft" . mm/compose-new))
       map)))
 
@@ -268,6 +284,7 @@ if provided, or at the end of the buffer otherwise."
   (setq mm/proc-error-func   'mm/hdrs-error-handler)
   (setq mm/proc-update-func  'mm/hdrs-update-handler)
   (setq mm/proc-header-func  'mm/hdrs-header-handler)
+  (setq mm/proc-found-func   'mm/hdrs-found-handler)
   (setq mm/proc-view-func    'mm/hdrs-view-handler)
   (setq mm/proc-remove-func  'mm/hdrs-remove-handler)
   ;; this last one is defined in mm-send.el

toys/mm/mm-proc.el

@@ -61,6 +61,12 @@ format.")
 server process; the function is passed a msg plist as argument. See
 `mm/proc-filter' for the format.")
 
+(defvar mm/proc-found-func nil
+  "*internal* A function called for when we received a :found sexp
+after the headers have returns, to report on the number of
+matches. See `mm/proc-filter' for the format.")
+
+
 (defvar mm/proc-compose-func nil
   "*internal* A function called for each message returned from the
 server process that is used as basis for composing a new
@@ -178,7 +184,7 @@ updated as well, with all processed sexp data removed."
       ;; eox
    => this will be passed to `mm/proc-error-func'.
 
-   2. a message sexp looks something like:
+   2a. a message sexp looks something like:
  \(
   :docid 1585
   :from ((\"Donald Duck\" . \"donald@example.com\"))
@@ -199,6 +205,11 @@ updated as well, with all processed sexp data removed."
 ;; eox
    => this will be passed to `mm/proc-header-func'.
 
+  2b. After the list of message sexps has been returned (see 2a.),
+  we'll receive a sexp that looks like
+  (:found <n>) with n the number of messages found. The <n> will be
+  passed to `mm/proc-found-func'.
+
   3. a view looks like:
   (:view <msg-sexp>)
   => the <msg-sexp> (see 2.) will be passed to `mm/proc-view-func'.
@@ -227,6 +238,12 @@ updated as well, with all processed sexp data removed."
 	;; a header plist can be recognized by the existence of a :date field
 	((plist-get sexp :date)
 	  (funcall mm/proc-header-func sexp))
+
+	;; the found sexp, we receive after gett all the headers
+	((plist-get sexp :found)
+	  (funcall mm/proc-found-func (plist-get sexp :found)))
+
+	;; viewin a specific message
 	((plist-get sexp :view)
 	  (funcall mm/proc-view-func (plist-get sexp :view)))
 

toys/mm/mm.el

@@ -254,6 +254,13 @@ flag set)."
   :group 'mm/faces)
 
 
+(defface mm/system-face
+  '((t :inherit font-lock-comment-face :slant italic))
+  "Face for system message (such as the footers for message
+headers)."
+  :group 'mm/faces)
+
+
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; internal variables / constant