--- /dev/null
+Return-Path: <too@guru-group.fi>\r
+X-Original-To: notmuch@notmuchmail.org\r
+Delivered-To: notmuch@notmuchmail.org\r
+Received: from localhost (localhost [127.0.0.1])\r
+ by arlo.cworth.org (Postfix) with ESMTP id 6B38B6DE133A\r
+ for <notmuch@notmuchmail.org>; Fri, 13 Nov 2015 15:30:04 -0800 (PST)\r
+X-Virus-Scanned: Debian amavisd-new at cworth.org\r
+X-Spam-Flag: NO\r
+X-Spam-Score: 0.127\r
+X-Spam-Level: \r
+X-Spam-Status: No, score=0.127 tagged_above=-999 required=5 tests=[AWL=0.667, \r
+ RP_MATCHES_RCVD=-0.55, T_HEADER_FROM_DIFFERENT_DOMAINS=0.01]\r
+ autolearn=disabled\r
+Received: from arlo.cworth.org ([127.0.0.1])\r
+ by localhost (arlo.cworth.org [127.0.0.1]) (amavisd-new, port 10024)\r
+ with ESMTP id ieVRxBwj3y13 for <notmuch@notmuchmail.org>;\r
+ Fri, 13 Nov 2015 15:30:01 -0800 (PST)\r
+Received: from guru.guru-group.fi (guru.guru-group.fi [46.183.73.34])\r
+ by arlo.cworth.org (Postfix) with ESMTP id 9A4486DE12F3\r
+ for <notmuch@notmuchmail.org>; Fri, 13 Nov 2015 15:30:00 -0800 (PST)\r
+Received: by guru.guru-group.fi (Postfix, from userid 501)\r
+ id 717D21000C6; Sat, 14 Nov 2015 01:29:58 +0200 (EET)\r
+From: Tomi Ollila <tomi.ollila@iki.fi>\r
+To: notmuch@notmuchmail.org\r
+Cc: tomi.ollila@iki.fi\r
+Subject: [PATCH v3] devel/emacs: add devel/try-emacs-mua.sh\r
+Date: Sat, 14 Nov 2015 01:29:57 +0200\r
+Message-Id: <1447457397-11688-1-git-send-email-tomi.ollila@iki.fi>\r
+X-Mailer: git-send-email 2.0.0\r
+X-BeenThere: notmuch@notmuchmail.org\r
+X-Mailman-Version: 2.1.20\r
+Precedence: list\r
+List-Id: "Use and development of the notmuch mail system."\r
+ <notmuch.notmuchmail.org>\r
+List-Unsubscribe: <https://notmuchmail.org/mailman/options/notmuch>,\r
+ <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
+List-Archive: <http://notmuchmail.org/pipermail/notmuch/>\r
+List-Post: <mailto:notmuch@notmuchmail.org>\r
+List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
+List-Subscribe: <https://notmuchmail.org/mailman/listinfo/notmuch>,\r
+ <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
+X-List-Received-Date: Fri, 13 Nov 2015 23:30:04 -0000\r
+\r
+devel/try-emacs-mua.sh provides an easy way to try and experiment with\r
+the notmuch emacs client provided in emacs subdirectory of notmuch\r
+source tree.\r
+\r
+User is required to choose whether to run emacs with -q, -Q or neither\r
+-- and experienced ones may add other command line options, like\r
+'-f notmuch'.\r
+\r
+With emaces older than 24.4 it is checked that none of the .elc files\r
+in notmuch/emacs directory is older than their corresponding .el files\r
+before running emacs. With newer emaces variable `load-prefer-newer'\r
+is effective so having old .elcs do not matter.\r
+\r
+Last possibility for "error" is when emacs starts and loads notmuch\r
+(by init file) before there is change to have notmuch/emacs directory\r
+in load-path. This time the message is written to emacs' *scratch* buffer.\r
+\r
+If everything is OK, the *scratch* buffer is filled with some lisp code\r
+which user can evaluate before running notmuch functions.\r
+---\r
+\r
+Version 3 (I guess) -- the discovery Mark made in\r
+id:87si4bwrsu.fsf@qmul.ac.uk has been fixed (originally to perl code,\r
+but now converted to shell) -- and changed to just recognize that there\r
+are old .elc files -- and the check is done only for emacses < 24.4.\r
+Now loading of "notmuch" is wrapped in (let ((load-prefer-newer t)) ...).\r
+\r
+I tried tricks to ensure that notmuch*.el files are (always) loaded, but\r
+it either got too complicated (hacky, potentially fragile defadvices), or\r
+I saw plenty of *.el.gz uncompressions happening (and recursion loop in\r
+jka-compr before that)...\r
+\r
+There is one notably change to the previous one -- before loading notmuch\r
+there is check whether it is already loaded; if it is there is no point\r
+going further here. Thanks for this discovery goes to IRC debugging\r
+section with (mark and) "pseudomyne".\r
+\r
+ devel/try-emacs-mua.sh | 117 +++++++++++++++++++++++++++++++++++++++++++++++++\r
+ 1 file changed, 117 insertions(+)\r
+ create mode 100755 devel/try-emacs-mua.sh\r
+\r
+diff --git a/devel/try-emacs-mua.sh b/devel/try-emacs-mua.sh\r
+new file mode 100755\r
+index 000000000000..e8406e3cb143\r
+--- /dev/null\r
++++ b/devel/try-emacs-mua.sh\r
+@@ -0,0 +1,117 @@\r
++#!/bin/sh\r
++\r
++# This script offers an easy way to try and experiment with the\r
++# notmuch emacs client provided in notmuch/emacs directory.\r
++\r
++set -eu\r
++\r
++test $# -gt 0 || {\r
++ exec >&2\r
++ echo\r
++ echo "Usage: $0 '' | q | Q [other-emacs-args]"\r
++ echo\r
++ printf " $0 %s\n" "'' starts emacs without either -q or -Q option" \\r
++ "q starts emacs with -q" \\r
++ "Q starts emacs with -Q"\r
++ echo\r
++ exit 1\r
++}\r
++\r
++case $1 in '') opt=\r
++ ;; q | -q) opt=-q\r
++ ;; Q | -Q) opt=-Q\r
++ ;; *) echo "option '$1' not '', 'q' nor 'Q'" >&2; exit 1\r
++esac\r
++shift\r
++\r
++case $0 in\r
++ *\"*) echo "'$0' contain one or more '\"'s" >&2; exit 1 ;;\r
++ *\\*) echo "'$0' contain one or more '\\'s" >&2; exit 1 ;;\r
++ */*) d0=${0%/*} ;;\r
++ *) d0=.\r
++esac\r
++\r
++pwd=$PWD\r
++cd "$d0"/..\r
++nmd=$PWD\r
++emd=$PWD/emacs\r
++\r
++test -f "$emd"/notmuch-lib.el || {\r
++ echo "Cannot find notmuch-emacs source directory" >&2\r
++ exit 1\r
++}\r
++\r
++case `exec 2>&1 "${EMACS:-emacs}" -Q --batch -eval \\r
++ '(message (if (boundp '\''load-prefer-newer) "<-yes->" "<-no->"))'`\r
++in (*'<-no->'*)\r
++ allnew=true\r
++ for elc in "$emd"/*.elc\r
++ do\r
++ test -f "$elc" || continue\r
++ if test "$elc" -ot "${elc%c}"\r
++ then\r
++ echo "'$elc' is older than '${elc%c}'" >&2\r
++ allnew=false\r
++ fi\r
++ done\r
++ $allnew || {\r
++ exec >&2\r
++ echo\r
++ echo "In directory '$emd' there are .elc files that are"\r
++ echo "older than their corresponding .el files."\r
++ echo "Please remove (or recompile) these older files and try again."\r
++ echo\r
++ exit 1\r
++ }\r
++ unset allnew\r
++esac\r
++\r
++if test -x "$nmd"/notmuch\r
++then\r
++ nmin='\r
++To use accompanied notmuch binary from the same source, evaluate\r
++(setq exec-path (cons \"'"$nmd"'\" exec-path))\r
++Note: Evaluating the above may be followed by unintended database\r
++upgrade and getting back to old version may require dump & restore.\r
++'\r
++else\r
++ nmin=\r
++fi\r
++\r
++if test "$opt" = '-q' || test "$opt" = '-Q'\r
++then\r
++ qin='\r
++If you want to load your .emacs startup file now, evaluate\r
++(load \"~/.emacs\")\r
++\r
++If you want to use packages (e.g. company from elpa) evaluate\r
++(progn (require '\''package) (package-initialize))\r
++'\r
++else\r
++ qin='\r
++To view initialization time messages, evaluate\r
++(pop-to-buffer \"*Messages*\")\r
++'\r
++fi\r
++\r
++cd "$pwd"\r
++\r
++exec "${EMACS:-emacs}" $opt --debug-init -L "$emd" --eval '\r
++(with-current-buffer "*scratch*"\r
++ (if (featurep '\''notmuch)\r
++ (insert "\r
++Notmuch has been loaded to this emacs (during processing of the init file)\r
++which means it is (most probably) loaded from different source than expected.\r
++\r
++Please rerun \"'"$0"'\" with '"'q'"' to disable\r
++processing of the init file -- you can load it after emacs has started.\n\n")\r
++ (let ((load-prefer-newer t)) (load "notmuch" t))\r
++ (insert "\r
++Go to the end of the following lines and type C-x C-e to evaluate\r
++(or C-j which is shorter but inserts evaluation results into buffer)\r
++\r
++To \"disable\" mail sending, evaluate\r
++(setq message-send-mail-function (lambda () t))\r
++'"$nmin$qin"'\r
++To start notmuch (hello) screen, evaluate\r
++(notmuch-hello)")) (set-buffer-modified-p nil))' "$@"\r
+-- \r
+2.0.0\r
+\r
projects / notmuch-archives.git / commitdiff