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

toys/mm/mm-hdrs.el

@@ -170,6 +170,22 @@ if provided, or at the end of the buffer otherwise."
 		    (propertize line 'face 'mm/header-face)))))
     (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))))))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
@@ -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