mu4e: Rename 'Unnamed' sections

mu4e/mu4e-actions.el

@@ -43,7 +43,7 @@
 (defvar mu4e-view-date-format)
 
 
-;;; UNNAMED
+;;; Count lines
 
 (defun mu4e-action-count-lines (msg)
   "Count the number of lines in the e-mail MSG.
@@ -52,7 +52,7 @@ Works for headers view and message-view."
            (shell-command-to-string
             (concat "wc -l < " (shell-quote-argument (mu4e-message-field msg :path))))))
 
-;;; UNNAMED
+;;; To PDF
 
 (defvar mu4e-msg2pdf
   (let ((exec-path (cons (concat mu4e-builddir "/toys/msg2pdf/") exec-path)))
@@ -75,7 +75,7 @@ Works for the message view."
       (mu4e-warn "Failed to create PDF file"))
     (find-file pdf)))
 
-;;; UNNAMED
+;;; To HTML
 
 (defun mu4e~action-header-to-html (msg field)
   "Convert the FIELD of MSG to an HTML string."
@@ -156,7 +156,7 @@ privacy aspects in `(mu4e) Displaying rich-text messages'."
   (xwidget-webkit-browse-url
    (concat "file://" (mu4e~write-body-to-html msg)) t))
 
-;;; UNNAMED
+;;; To speech
 
 (defconst mu4e-text2speech-command "festival --tts"
   "Program that speaks out text it receives on standard input.")
@@ -170,7 +170,7 @@ privacy aspects in `(mu4e) Displaying rich-text messages'."
     (shell-command-on-region (point-min) (point-max)
                              mu4e-text2speech-command)))
 
-;;; UNNAMED
+;;; Org Helpers
 
 (defvar mu4e-captured-message nil
   "The most recently captured message.")
@@ -182,14 +182,11 @@ Later, we can create an attachment based on this message with
   (setq mu4e-captured-message msg)
   (message "Message has been captured"))
 
-;;; UNNAMED
 
 (defun mu4e-action-copy-message-file-path (msg)
   "Save the full path for the current MSG to the kill ring."
   (kill-new (mu4e-message-field msg :path)))
 
-;;; UNNAMED
-
 (defvar mu4e-org-contacts-file nil
   "File to store contact information for org-contacts.
 Needed by `mu4e-action-add-org-contact'.")
@@ -228,7 +225,7 @@ file where you store your org-contacts."
     (when (fboundp 'org-capture)
       (org-capture nil key))))
 
-;;; UNNAMED
+;;; Patches
 
 (defvar mu4e~patch-directory-history nil
   "History of directories we have applied patches to.")
@@ -268,7 +265,7 @@ bother asking for the git tree again (useful for bulk actions)."
                (if signoff "--signoff" "")
                (shell-quote-argument (mu4e-message-field msg :path)))))))
 
-;;; UNNAMED
+;;; Tagging
 
 (defvar mu4e-action-tags-header "X-Keywords"
   "Header where tags are stored.

mu4e/mu4e-compose.el

@@ -203,7 +203,7 @@ place to do that."
   "The compose-type for this buffer.
 This is a symbol, `new', `forward', `reply' or `edit'.")
 
-;;; UNNAMED
+;;; Attachments
 
 (defun mu4e-compose-attach-message (msg)
   "Insert message MSG as an attachment."
@@ -224,7 +224,7 @@ Messages are captured with `mu4e-action-capture-message'."
     (mu4e-warn "No message has been captured"))
   (mu4e-compose-attach-message mu4e-captured-message))
 
-;;; UNNAMED
+;;; Misc
 
 ;; 'fcc' refers to saving a copy of a sent message to a certain folder. that's
 ;; what these 'Sent mail' folders are for!
@@ -376,7 +376,7 @@ removing the In-Reply-To header."
   (unless (message-fetch-field "in-reply-to")
     (message-remove-header "References")))
 
-;;; UNNAMED
+;;; Compose Mode
 
 (defvar mu4e-compose-mode-map nil
   "Keymap for \"*mu4e-compose*\" buffers.")
@@ -818,7 +818,7 @@ draft message."
   (mu4e-compose 'new))
 
 
-;;; UNNAMED
+;;; Compose Mail
 ;; mu4e-compose-func and mu4e-send-func are wrappers so we can set ourselves
 ;; as default emacs mailer (define-mail-user-agent etc.)
 
@@ -904,7 +904,7 @@ buffer buried."
   "Return the `mu4e-user-agent' symbol."
   'mu4e-user-agent)
 
-;;; UNNAMED
+;;; Go to bottom / top
 
 (defun mu4e-compose-goto-top (&optional arg)
   "Go to the beginning of the message or buffer.

mu4e/mu4e-draft.el

@@ -73,8 +73,6 @@ mu4e-specific version of `message-signature'."
   :type 'boolean
   :group 'mu4e-compose)
 
-;;; UNNAMED
-
 (defvar mu4e-user-agent-string
   (format "mu4e %s; emacs %s" mu4e-mu-version emacs-version)
   "The User-Agent string for mu4e, or nil.")
@@ -317,7 +315,7 @@ This is based on the variable `user-full-name' and
       (format "%s" user-mail-address))))
 
 
-;;; UNNAMED
+;;; Header separators
 
 (defun mu4e~draft-insert-mail-header-separator ()
   "Insert `mail-header-separator' in the first empty line of the message.

mu4e/mu4e-headers.el

@@ -338,7 +338,7 @@ followed by the docid, followed by `mu4e~headers-docid-post'.")
   "List of cells describing the various sort-options.
 In the format needed for `mu4e-read-option'.")
 
-;;; UNNAMED
+;;; Clear
 
 (defun mu4e~headers-clear (&optional msg)
   "Clear the header buffer and related data structures."
@@ -436,7 +436,7 @@ If SKIP-HOOK is absent or nil, `mu4e-message-changed-hook' will be invoked."
     (run-hooks 'mu4e-message-changed-hook)))
 
 
-;;; UNNAMED
+;;; Misc
 
 (defun mu4e~headers-contact-str (contacts)
   "Turn the list of contacts CONTACTS (with elements (NAME . EMAIL)
@@ -446,8 +446,6 @@ into a string."
      (let ((name (car ct)) (email (cdr ct)))
        (or name email "?"))) contacts ", "))
 
-;;; UNNAMED
-
 (defun mu4e~headers-thread-prefix-map (type)
   "Return the thread prefix based on the symbol TYPE."
   (let ((get-prefix
@@ -604,7 +602,7 @@ while our display may be different)."
                         ('unread    (funcall get-prefix mu4e-headers-unread-mark)))))))
     str))
 
-;;; UNNAMED
+;;; Special headers
 
 (defconst mu4e-headers-from-or-to-prefix '("" . "To ")
   "Prefix for the :from-or-to field.
@@ -805,7 +803,7 @@ after the end of the search results."
     (run-hooks 'mu4e-headers-found-hook)))
 
 
-;;; UNNAMED
+;;; Marking
 
 (defmacro mu4e~headers-defun-mark-for (mark)
   "Define a function mu4e~headers-mark-MARK."
@@ -830,8 +828,6 @@ after the end of the search results."
 (mu4e~headers-defun-mark-for unread)
 (mu4e~headers-defun-mark-for action)
 
-;;; UNNAMED
-
 (defvar mu4e-move-to-trash-patterns '()
   "List of regexps to match for moving to trash instead of flagging them.
 This is particularly useful for mailboxes that don't use the
@@ -1140,7 +1136,7 @@ Also, unhighlight any previously highlighted headers."
         (hl-line-highlight)))
     (setq mu4e~highlighted-docid docid)))
 
-;;; UNNAMED
+;;; Misc 2
 
 (defun mu4e~headers-select-window ()
   "When there is a visible window for the headers buffer, make sure
@@ -1158,7 +1154,7 @@ message plist, or nil if not found."
        (when (and this-msgid (string= msgid this-msgid))
          msg)))))
 
-;;; UNNAMED markers mark headers for
+;;; Marking 2
 
 (defun mu4e~headers-mark (docid mark)
   "(Visually) mark the header for DOCID with character MARK."
@@ -1210,7 +1206,7 @@ docid is not found."
       (unless ignore-missing
         (mu4e-error "Cannot find message with docid %S" docid)))))
 
-;;; UNNAMED
+;;; Queries & searching
 
 (defcustom mu4e-query-rewrite-function 'identity
   "Function that takes a search expression string, and returns a

mu4e/mu4e-mark.el

@@ -37,7 +37,7 @@
 (declare-function mu4e~headers-goto-docid "mu4e-headers")
 (declare-function mu4e-headers-next "mu4e-headers")
 
-;;; UNNAMED
+;;; Variables & constants
 
 (defcustom mu4e-headers-leave-behavior 'ask
   "What to do when user leaves the headers view.
@@ -437,7 +437,6 @@ If NO-CONFIRMATION is non-nil, don't ask user for confirmation."
   "Is the given DOCID marked?"
   (when (gethash docid mu4e~mark-map) t))
 
-;;; UNNAMED
 
 (defun mu4e-mark-marks-num ()
   "Return the number of mark-instances in the current buffer."

mu4e/mu4e-message.el

@@ -84,7 +84,7 @@ message-plist and the text, which is the plain-text version,
 ossibly converted from html and/or transformed by earlier rewrite
 functions.")
 
-;;; UNNAMED
+;;; Message fields
 
 (defsubst mu4e-message-field-raw (msg field)
   "Retrieve FIELD from message plist MSG.
@@ -310,7 +310,7 @@ Eiter in the headers buffer or the view buffer. Field is a
 Eiter in the headers buffer or the view buffer. Field is a
 symbol, see `mu4e-header-info'."
   (plist-get (mu4e-message-at-point) field))
-
+
 ;;; Html2Text
 
 (defun mu4e~html2text-wrapper (func msg)

mu4e/mu4e-utils.el

@@ -545,7 +545,7 @@ Or go to the top level if there is none."
           ('mu4e-view-mode "(mu4e)Message view")
           (t               "mu4e"))))
 
-;;; UNNAMED Buffers and windows (1/2)
+;;; Misc
 
 (defun mu4e-last-query ()
   "Get the most recent query or nil if there is none."
@@ -588,8 +588,6 @@ that has a live window), and vice versa."
         (view-mode)))
     (switch-to-buffer buf)))
 
-;;; UNNAMED
-
 (defvar mu4e~lists-hash nil
   "Hashtable of mailing-list-id => shortname, based on
   `mu4e~mailing-lists' and `mu4e-user-mailing-lists'.")
@@ -618,8 +616,6 @@ on `mu4e~mailing-lists', `mu4e-user-mailing-lists', and
        (match-string 1 list-id)
      list-id)))
 
-;;; UNNAMED
-
 (defvar mu4e-index-updated-hook nil
   "Hook run when the indexing process had one or more updated messages.
 This can be used as a simple way to invoke some action when new
@@ -674,7 +670,7 @@ process."
     (t (error "Error %d: %s" errcode errmsg))))
 
 
-;;; UNNAMED
+;;; Contacts
 
 (defun mu4e~update-contacts (contacts &optional tstamp)
   "Receive a sorted list of CONTACTS.
@@ -851,7 +847,7 @@ When successful, call FUNC (if non-nil) afterwards."
    (buffer-list)))
 
 
-;;; UNNAMED
+;;; Indexing & Updating
 
 (defvar mu4e~progress-reporter nil
   "Internal, the progress reporter object.")
@@ -1097,7 +1093,7 @@ This includes expanding e.g. 3-5 into 3,4,5.  If the letter
          (mu4e-warn "Attachment number must be greater than 0 (%d)" x))))
      list)))
 
-;;; UNNAMED
+;;; Misc 2
 
 (defvar mu4e-imagemagick-identify "identify"
   "Name/path of the Imagemagick 'identify' program.")
@@ -1187,7 +1183,7 @@ displaying it). Do _not_ bury the current buffer, though."
   (interactive)
   (mu4e-info (concat mu4e-doc-dir "/NEWS.org")))
 
-;;; UNNAMED
+;;; Misc 3
 
 (defun mu4e-refresh-message (path)
   "Re-parse message at PATH; if this works, we will
@@ -1195,7 +1191,6 @@ receive (:info add :path <path> :docid <docid>) as well as (:update
 <msg-sexp>)."
   (mu4e~proc-add path))
 
-;;; UNNAMED
 
 (defun mu4e~fontify-cited ()
   "Colorize message content based on the citation level. This is
@@ -1226,7 +1221,7 @@ the view and compose modes and will color each signature in digest messages adhe
                     (point-max))))
           (add-text-properties p end '(face mu4e-footer-face)))))))
 
-;;; UNNAMED
+;;; Misc 4
 
 (defun mu4e~quote-for-modeline (str)
   "Quote a string to be used literally in the modeline. The
@@ -1244,8 +1239,6 @@ string will be shortened to fit if its length exceeds
     ;; Escape the % character
     (replace-regexp-in-string "%" "%%" str t t)))
 
-;;; UNNAMED Buffers and windows (1/2)
-
 (defun mu4e~active-composition-buffers ()
   "Return all active mu4e composition buffers"
   (let (buffers)

mu4e/mu4e-view.el

@@ -222,7 +222,7 @@ message extracted at some path.")
   "Should we prefer html or text just this once? A symbol `text'
 or `html' or nil.")
 
-;;; UNNAMED Main
+;;; Main
 
 (defun mu4e-view-message-with-message-id (msgid)
   "View message with message-id MSGID. This (re)creates a
@@ -1439,7 +1439,7 @@ attachments) in response to a (mu4e~proc-extract 'temp ... )."
     (icalendar-import-file path diary-file))
    (t (mu4e-error "Unsupported action %S" what))))
 
-;;; UNNAMED Utilities
+;;; View Utilities
 
 (defun mu4e-view-mark-custom ()
   "Run some custom mark function."