master 659ed85: Indicate not downloaded parts in MIME buttons.

[Tassilo Horn]

branch: master
commit 659ed857c04936140fea847795f8b85c5dcc3920
Author: Tassilo Horn <address@hidden>
Commit: Tassilo Horn <address@hidden>

    Indicate not downloaded parts in MIME buttons.
    
    Via nnimap-fetch-partial-articles one can tell Gnus to omit fetching
    certain parts by default.  Now the MIME buttons in the article buffer
    indicate how to fetch the complete message in order to act on those
    missing parts.
    
    * lisp/gnus/gnus-art.el (gnus-insert-mime-button): Indicate not
    downloaded parts in MIME buttons.
---
 lisp/gnus/gnus-art.el | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 6b9610d..614651a 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -5833,6 +5833,7 @@ all parts."
             "" "..."))
        (gnus-tmp-length (with-current-buffer (mm-handle-buffer handle)
                           (buffer-size)))
+        (help-echo "mouse-2: toggle the MIME part; down-mouse-3: more options")
        gnus-tmp-type-long b e)
     (when (string-match ".*/" gnus-tmp-name)
       (setq gnus-tmp-name (replace-match "" t t gnus-tmp-name)))
@@ -5841,6 +5842,16 @@ all parts."
                                          (concat "; " gnus-tmp-name))))
     (unless (equal gnus-tmp-description "")
       (setq gnus-tmp-type-long (concat " --- " gnus-tmp-type-long)))
+    (when (zerop gnus-tmp-length)
+      (setq gnus-tmp-type-long
+            (concat
+             gnus-tmp-type-long
+             (substitute-command-keys
+              (concat "\\<gnus-summary-mode-map> (not downloaded, "
+                      "\\[gnus-summary-show-complete-article] to fetch.)"))))
+      (setq help-echo
+            (concat "Type \\[gnus-summary-show-complete-article] "
+                    "to download complete article. " help-echo)))
     (setq b (point))
     (gnus-eval-format
      gnus-mime-button-line-format gnus-mime-button-line-format-alist
@@ -5859,8 +5870,7 @@ all parts."
      'keymap gnus-mime-button-map
      'face gnus-article-button-face
      'follow-link t
-     'help-echo
-     "mouse-2: toggle the MIME part; down-mouse-3: more options")))
+     'help-echo help-echo)))
 
 (defvar gnus-displaying-mime nil)