From 5e340e3b5daf074790b3748125bb4260e5ed55c7 Mon Sep 17 00:00:00 2001 From: "Dirk-Jan C. Binnema" Date: Fri, 15 Nov 2024 18:50:35 +0200 Subject: [PATCH] mu4e-mime-parts: cosmetics --- mu4e/mu4e-mime-parts.el | 17 +++-------------- 1 file changed, 3 insertions(+), 14 deletions(-) diff --git a/mu4e/mu4e-mime-parts.el b/mu4e/mu4e-mime-parts.el index 1e681e1f..875f5968 100644 --- a/mu4e/mu4e-mime-parts.el +++ b/mu4e/mu4e-mime-parts.el @@ -1,6 +1,6 @@ ;;; mu4e-mime-parts.el --- Dealing with MIME-parts & URLs -*- lexical-binding: t -*- -;; Copyright (C) 2023 Dirk-Jan C. Binnema +;; Copyright (C) 2023-2024 Dirk-Jan C. Binnema ;; Author: Dirk-Jan C. Binnema ;; Maintainer: Dirk-Jan C. Binnema @@ -24,20 +24,15 @@ ;; Implements functions and variables for dealing with MIME-parts and URLs. - ;;; TODO: ;; [~] mime part candidate sorting -> is his even possible generally? ;; [ ] URL support ;;; Code: - - (require 'mu4e-vars) (require 'mu4e-folders) (require 'gnus-art) - - (defcustom mu4e-view-open-program (pcase system-type ('darwin "open") @@ -54,7 +49,6 @@ specified a function as viewer." :type '(choice string function) :group 'mu4e-view) - ;; remember the mime-handles, so we can clean them up when ;; we quit this buffer. (defvar-local mu4e~gnus-article-mime-handles nil) @@ -66,11 +60,9 @@ specified a function as viewer." (mm-destroy-parts mu4e~gnus-article-mime-handles) (setq mu4e~gnus-article-mime-handles nil))) - ;;; MIME-parts (defvar-local mu4e--view-mime-parts nil "Cached MIME parts for this message.") - (defun mu4e-view-mime-parts() "Get the list of MIME parts for this message. @@ -176,8 +168,8 @@ Otherwise, return a file with a unique number appended to the base-name." :keymap mu4e-view-completion-minor-mode-map) (defun mu4e--part-annotation (candidate part type longest-filename) - "Calculate the annotation candidates as per -`:annotation-function' (see `completion-extra-properties') + "Calculate the annotation candidates as per annotation. +I.e., `:annotation-function' (see `completion-extra-properties') CANDIDATE is the value to annotate. @@ -227,7 +219,6 @@ information' is used for alignment." (format "%s" (concat "-> " target)))) (_ (mu4e-error "Unsupported annotation type %s" type))))) - (defvar helm-comp-read-use-marked) (defun mu4e--completing-read-real (prompt candidates multi) "Call the appropriate completion-read function. @@ -381,7 +372,6 @@ Each of the actions is a plist with keys ;; or as a string parameter to a function ).") - (defun mu4e--view-mime-part-to-temp-file (handle) "Write MIME-part HANDLE to a temporary file and return the file name. The filename is deduced from the MIME-part's filename, or @@ -496,6 +486,5 @@ the third MIME-part." (display-buffer buf))) - (provide 'mu4e-mime-parts) ;;; mu4e-mime-parts.el ends here