73/745aba963ba4039a2d249cfd8f7f0ede16750e

   1 Return-Path: <markwalters1009@gmail.com>\r
   2 X-Original-To: notmuch@notmuchmail.org\r
   3 Delivered-To: notmuch@notmuchmail.org\r
   4 Received: from localhost (localhost [127.0.0.1])\r
   5         by olra.theworths.org (Postfix) with ESMTP id 3092D429E36\r
   6         for <notmuch@notmuchmail.org>; Fri, 31 May 2013 11:28:05 -0700 (PDT)\r
   7 X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\r
   8 X-Spam-Flag: NO\r
   9 X-Spam-Score: 0.201\r
  10 X-Spam-Level: \r
  11 X-Spam-Status: No, score=0.201 tagged_above=-999 required=5\r
  12         tests=[DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1,\r
  13         FREEMAIL_ENVFROM_END_DIGIT=1, FREEMAIL_FROM=0.001,\r
  14         RCVD_IN_DNSWL_LOW=-0.7] autolearn=disabled\r
  15 Received: from olra.theworths.org ([127.0.0.1])\r
  16         by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)\r
  17         with ESMTP id mci010VWFw0l for <notmuch@notmuchmail.org>;\r
  18         Fri, 31 May 2013 11:27:59 -0700 (PDT)\r
  19 Received: from mail-wg0-f53.google.com (mail-wg0-f53.google.com\r
  20  [74.125.82.53])        (using TLSv1 with cipher RC4-SHA (128/128 bits))        (No client\r
  21  certificate requested) by olra.theworths.org (Postfix) with ESMTPS id\r
  22  2E617429E3B    for <notmuch@notmuchmail.org>; Fri, 31 May 2013 11:27:32 -0700\r
  23  (PDT)\r
  24 Received: by mail-wg0-f53.google.com with SMTP id m15so1553304wgh.32\r
  25         for <notmuch@notmuchmail.org>; Fri, 31 May 2013 11:27:29 -0700 (PDT)\r
  26 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113;\r
  27         h=from:to:cc:subject:date:message-id:x-mailer:in-reply-to:references;\r
  28         bh=IuIe4mwfDyMwaQwCcWABdB9oL3+L73163B+Jf0Tp0GA=;\r
  29         b=yLRwrocXfx5X+6G/DK2djvvtJUGRFwD2kQ8A6hgeFwrDbsjphG4PXNbvFbRc4M/KYW\r
  30         aNqVJV0vtn93mfmYw8aPEITSTx/MvX1twm5GRFoB3eAhUTCR3icXZkvWrvs95tUpEFiS\r
  31         IQA4G2d+Kjh07l/yaA/3NhE/6VjWkflDko8MaroeSYods65KBKEf9eMUt+Nvk/v+qxXm\r
  32         SpRpxzBswt0zzywKACdTjnonJUE00osXH+bw738b4ffcToBrLO3NqTYGJVY5ZiDIOw99\r
  33         xcev6kkQDJdC2s35vGa/IMN9XiE3MtgX5o2KC/jxfvKo460oCJUxoUZshpJ/U5YfVj3E\r
  34         DXAw==\r
  35 X-Received: by 10.180.90.70 with SMTP id bu6mr4471531wib.34.1370024849570;\r
  36         Fri, 31 May 2013 11:27:29 -0700 (PDT)\r
  37 Received: from localhost (92.40.240.237.threembb.co.uk. [92.40.240.237])\r
  38         by mx.google.com with ESMTPSA id en3sm5745427wid.1.2013.05.31.11.27.27\r
  39         for <multiple recipients>\r
  40         (version=TLSv1.2 cipher=RC4-SHA bits=128/128);\r
  41         Fri, 31 May 2013 11:27:28 -0700 (PDT)\r
  42 From: Mark Walters <markwalters1009@gmail.com>\r
  43 To: notmuch@notmuchmail.org, Austin Clements <aclements@csail.mit.edu>,\r
  44         Adam Wolfe Gordon <awg+notmuch@xvx.ca>\r
  45 Subject: [PATCH v3 5/5] emacs: show: implement lazy hidden part handling\r
  46 Date: Fri, 31 May 2013 19:26:46 +0100\r
  47 Message-Id: <1370024806-6616-6-git-send-email-markwalters1009@gmail.com>\r
  48 X-Mailer: git-send-email 1.7.10.4\r
  49 In-Reply-To: <1370024806-6616-1-git-send-email-markwalters1009@gmail.com>\r
  50 References: <1370024806-6616-1-git-send-email-markwalters1009@gmail.com>\r
  51 X-BeenThere: notmuch@notmuchmail.org\r
  52 X-Mailman-Version: 2.1.13\r
  53 Precedence: list\r
  54 List-Id: "Use and development of the notmuch mail system."\r
  55         <notmuch.notmuchmail.org>\r
  56 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
  57         <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
  58 List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
  59 List-Post: <mailto:notmuch@notmuchmail.org>\r
  60 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
  61 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
  62         <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
  63 X-List-Received-Date: Fri, 31 May 2013 18:28:05 -0000\r
  64 \r
  65 This adds the actual code to do the lazy insertion of hidden parts.\r
  66 \r
  67 We use a memory inefficient but simple method: when we come to insert\r
  68 the part if it is hidden we just store all of the arguments to the\r
  69 part insertion function as a button property. This means when we want\r
  70 to show the part we can just resume where we left off.\r
  71 \r
  72 One thing is that we can't tell if a lazy part will produce text until\r
  73 we try to render it so when unhiding a part we check to see if it\r
  74 rendered; if not we invoke the default part handler (e.g. an external\r
  75 viewer).\r
  76 ---\r
  77  emacs/notmuch-show.el |   51 ++++++++++++++++++++++++++++++++++++++++++-------\r
  78  1 file changed, 44 insertions(+), 7 deletions(-)\r
  79 \r
  80 diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el\r
  81 index 89199e8..4999b94 100644\r
  82 --- a/emacs/notmuch-show.el\r
  83 +++ b/emacs/notmuch-show.el\r
  84 @@ -550,12 +550,14 @@ message at DEPTH in the current thread."\r
  85      (let ((handle (mm-make-handle (current-buffer) (list content-type))))\r
  86        (mm-pipe-part handle))))\r
  87  \r
  88 -;; This is taken from notmuch-wash: maybe it should be unified?\r
  89  (defun notmuch-show-toggle-part-invisibility (&optional button)\r
  90    (interactive)\r
  91    (let* ((button (or button (button-at (point))))\r
  92 -        (overlay (button-get button 'overlay)))\r
  93 -    (when overlay\r
  94 +        (overlay (button-get button 'overlay))\r
  95 +        (lazy-part (button-get button :notmuch-lazy-part)))\r
  96 +    ;; We have a part to toggle if there is an overlay or if there is a lazy part.\r
  97 +    ;; If neither is present we cannot toggle the part so we just return nil.\r
  98 +    (when (or overlay lazy-part)\r
  99        (let* ((show (button-get button :notmuch-part-hidden))\r
 100              (new-start (button-start button))\r
 101              (button-label (button-get button :base-label))\r
 102 @@ -569,7 +571,15 @@ message at DEPTH in the current thread."\r
 103           (move-overlay button new-start (point))\r
 104           (delete-region (point) old-end))\r
 105         (goto-char (min old-point (1- (button-end button))))\r
 106 -       (overlay-put overlay 'invisible (not show))))))\r
 107 +       ;; Return nil if there is a lazy-part, it is empty, and we are\r
 108 +       ;; trying to show it.  In all other cases return t.\r
 109 +       (if lazy-part\r
 110 +           (when show\r
 111 +             (button-put button :notmuch-lazy-part nil)\r
 112 +             (notmuch-show-lazy-part lazy-part button))\r
 113 +         ;; else there must be an overlay.\r
 114 +         (overlay-put overlay 'invisible (not show))\r
 115 +         t)))))\r
 116  \r
 117  (defun notmuch-show-multipart/*-to-list (part)\r
 118    (mapcar (lambda (inner-part) (plist-get inner-part :content-type))\r
 119 @@ -865,6 +875,27 @@ message at DEPTH in the current thread."\r
 120      ;; Return true if we created an overlay.\r
 121      t))\r
 122  \r
 123 +(defun notmuch-show-lazy-part (part-args button)\r
 124 +  ;; Insert the lazy part after the button for the part.\r
 125 +  (save-excursion\r
 126 +    (goto-char (1+ (button-end button)))\r
 127 +    (let* ((inhibit-read-only t)\r
 128 +          ;; We need to use markers for the start and end of the part\r
 129 +          ;; because the part insertion functions do not guarantee\r
 130 +          ;; to leave point at the end of the part.\r
 131 +          (part-beg (copy-marker (point) nil))\r
 132 +          (part-end (copy-marker (point) t))\r
 133 +          ;; We have to save the depth as we can't find the depth\r
 134 +          ;; when narrowed.\r
 135 +          (depth (notmuch-show-get-depth)))\r
 136 +      (save-restriction\r
 137 +       (narrow-to-region part-beg part-end)\r
 138 +       (delete-region part-beg part-end)\r
 139 +       (apply #'notmuch-show-insert-bodypart-internal part-args)\r
 140 +       (indent-rigidly part-beg part-end depth))\r
 141 +      ;; Create the overlay. If the lazy-part turned out to be empty/not\r
 142 +      ;; showable this returns nil.\r
 143 +      (notmuch-show-create-part-overlays button part-beg part-end))))\r
 144  \r
 145  (defun notmuch-show-insert-bodypart (msg part depth &optional hide)\r
 146    "Insert the body part PART at depth DEPTH in the current thread.\r
 147 @@ -883,7 +914,11 @@ If HIDE is non-nil then initially hide this part."\r
 148                    (notmuch-show-insert-part-header nth mime-type content-type (plist-get part :filename))))\r
 149          (beg (point)))\r
 150  \r
 151 -    (notmuch-show-insert-bodypart-internal msg part mime-type nth depth button)\r
 152 +    (if (not hide)\r
 153 +        (notmuch-show-insert-bodypart-internal msg part mime-type nth depth button)\r
 154 +      (button-put button :notmuch-lazy-part\r
 155 +                  (list msg part mime-type nth depth button)))\r
 156 +\r
 157      ;; Some of the body part handlers leave point somewhere up in the\r
 158      ;; part, so we make sure that we're down at the end.\r
 159      (goto-char (point-max))\r
 160 @@ -2002,8 +2037,10 @@ the user (see `notmuch-show-stash-mlarchive-link-alist')."\r
 161  (defun notmuch-show-part-button-default (&optional button)\r
 162    (interactive)\r
 163    (let ((button (or button (button-at (point)))))\r
 164 -    (if (button-get button 'overlay)\r
 165 -       (notmuch-show-toggle-part-invisibility button)\r
 166 +    ;; Try to toggle the part, if that fails then call the default\r
 167 +    ;; action. The toggle fails if the part has no emacs renderable\r
 168 +    ;; content.\r
 169 +    (unless (notmuch-show-toggle-part-invisibility button)\r
 170        (notmuch-show-part-button-internal button notmuch-show-part-button-default-action))))\r
 171  \r
 172  (defun notmuch-show-part-button-save (&optional button)\r
 173 -- \r
 174 1.7.10.4\r
 175 \r