Update patch to work with newer mu4e

global.org

@@ -925,25 +925,25 @@
              (gnus-text-property-search 'action 'browse-url t t t))
          (cons start (point))))
 
-     (defun mu4e~view-activate-urls ()
+     (defun mu4e--view-activate-urls ()
        "Turn things that look like URLs into clickable things.
      Also number them so they can be opened using `mu4e-view-go-to-url'."
        (let ((num 0)
              (use-gnus-properties mu4e-view-use-gnus))
          (save-excursion
-           (setq mu4e~view-link-map ;; buffer local
+           (setq mu4e--view-link-map ;; buffer local
                  (make-hash-table :size 32 :weakness nil))
            (goto-char (point-min))
            (while (if use-gnus-properties (gnus-next-url)
-                    (re-search-forward mu4e~view-beginning-of-url-regexp nil t))
+                    (re-search-forward mu4e--view-beginning-of-url-regexp nil t))
              (let ((bounds (if use-gnus-properties (gnus-bounds-of-url-at-point)
                              (thing-at-point-bounds-of-url-at-point))))
                (when bounds
                  (let* ((url (or (get-text-property (car bounds) 'button-data)
                                  (thing-at-point-url-at-point)))
                         (ov (make-overlay (car bounds) (cdr bounds))))
-                   (when (string-match-p "https?" url)
-                     (puthash (cl-incf num) url mu4e~view-link-map)
+                     (when (string-match-p "https?" url)
+                     (puthash (cl-incf num) url mu4e--view-link-map)
                      (add-text-properties
                       (car bounds)
                       (cdr bounds)
@@ -1032,7 +1032,8 @@
     set my preferred indentation
     #+begin_src emacs-lisp
       (setq org-ellipsis "…"
-            org-adapt-indentation t)
+            org-adapt-indentation t
+            org-tags-column -75)
     #+end_src
 *** Ligatures [not in working order]
     These require a patched ~hackminus~ font.  Too bad it does not work