From patchwork Sun Nov 20 05:46:20 2022 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Hilton Chain X-Patchwork-Id: 44704 Return-Path: X-Original-To: patchwork@mira.cbaines.net Delivered-To: patchwork@mira.cbaines.net Received: by mira.cbaines.net (Postfix, from userid 113) id 2F77327BBE9; Sun, 20 Nov 2022 05:47:25 +0000 (GMT) X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-1.7 required=5.0 tests=BAYES_00,DKIM_INVALID, DKIM_SIGNED,FROM_SUSPICIOUS_NTLD,MAILING_LIST_MULTI,PDS_OTHER_BAD_TLD, RCVD_IN_MSPIKE_H2,SPF_HELO_PASS,URIBL_BLOCKED autolearn=no autolearn_force=no version=3.4.6 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) by mira.cbaines.net (Postfix) with ESMTPS id 2839027BBEC for ; Sun, 20 Nov 2022 05:47:24 +0000 (GMT) Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1owdAW-0004UM-SL; Sun, 20 Nov 2022 00:47:04 -0500 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1owdAV-0004Si-D1 for guix-patches@gnu.org; Sun, 20 Nov 2022 00:47:03 -0500 Received: from debbugs.gnu.org ([209.51.188.43]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1owdAV-00018o-4D for guix-patches@gnu.org; Sun, 20 Nov 2022 00:47:03 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1owdAU-000719-UU for guix-patches@gnu.org; Sun, 20 Nov 2022 00:47:03 -0500 X-Loop: help-debbugs@gnu.org Subject: [bug#59402] [PATCH 5/5] gnu: Add emacs-wanderlust. Resent-From: Hilton Chain Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Sun, 20 Nov 2022 05:47:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 59402 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 59402@debbugs.gnu.org Received: via spool by 59402-submit@debbugs.gnu.org id=B59402.166892322126954 (code B ref 59402); Sun, 20 Nov 2022 05:47:02 +0000 Received: (at 59402) by debbugs.gnu.org; 20 Nov 2022 05:47:01 +0000 Received: from localhost ([127.0.0.1]:42101 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1owdAS-00070g-Um for submit@debbugs.gnu.org; Sun, 20 Nov 2022 00:47:01 -0500 Received: from mail.boiledscript.com ([144.168.59.46]:60390) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1owdAQ-00070P-UH for 59402@debbugs.gnu.org; Sun, 20 Nov 2022 00:46:59 -0500 Date: Sun, 20 Nov 2022 13:46:20 +0800 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=ultrarare.space; s=dkim; t=1668923213; h=from:from:reply-to:subject:subject:date:date:message-id:message-id: to:to:cc:mime-version:mime-version:content-type:content-type: content-transfer-encoding:content-transfer-encoding: in-reply-to:in-reply-to:references:references; bh=9wxePXk4aWIEq0VcR2oed7xVTIgJEU3DL8OQVRrz3gk=; b=S6NvCmC/S1pdw7EZLIwbdO/rOdh1ysZDGhV0Fz6sx1UpGNrAWoS2KHnUAK9rAJQpk4fnPJ U8zKw5vLol9PMEv63hPJTWyELhORcoM77CZX1TjAjgWA2aSPm7i8fII6OSEQU4J+ur+NgB ZYF3zUMBwfIHLRcifiUCMPAq8mcthCFthPTcgulaQMKgQCpxHEuE1FCIdgeVS2X8r3ygtC UMWQqrn8GospNXNUU/s4BpTxn6tJjRdQ1E28gVfSg87REAN0XBXVDQW4EabFzHR7RmGRra GQRAJ/neHn9hOnbCnFkry57xT9wL0retNek/oMtdTiIEfS+Hl5oeuc7EPrJbiQ== Message-ID: In-Reply-To: References: MIME-Version: 1.0 X-Spamd-Bar: / Authentication-Results: mail.boiledscript.com; auth=pass smtp.mailfrom=hako@ultrarare.space X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Reply-to: Hilton Chain X-ACL-Warn: , Hilton Chain via Guix-patches X-Patchwork-Original-From: Hilton Chain via Guix-patches via From: Hilton Chain Errors-To: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org Sender: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org X-getmail-retrieved-from-mailbox: Patches * gnu/packages/emacs-xyz.scm (emacs-wanderlust): New variable. --- gnu/packages/emacs-xyz.scm | 100 +++++++++++++++++++++++++++++++++++++ 1 file changed, 100 insertions(+) diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm index f4b39b90ef..03c9cec60e 100644 --- a/gnu/packages/emacs-xyz.scm +++ b/gnu/packages/emacs-xyz.scm @@ -33954,6 +33954,106 @@ (define-public emacs-semi-epg EasyPG and latest Emacs.") (license license:gpl2+)))) +(define-public emacs-wanderlust + ;; No release since Jan 15, 2010. + ;; FIXME: Building with emacs-next-pgtk would yield a void variable related + ;; macro-expansion failure at runtime, so don't rewrite emacs input of this + ;; package. + (let ((version "2.15.9") + (revision "779") + (commit "f5cb2f0cf5e2c893acf2e669fd549836828dfdfc")) + (package + (name "emacs-wanderlust") + (version (git-version version revision commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/wanderlust/wanderlust") + (commit commit))) + (file-name (git-file-name name version)) + (modules '((guix build utils))) + (snippet + '(begin (substitute* "WL-CFG" + ((".*WL_PREFIX.*") + (string-append "(setq wl-install-utils t)" "\n" + "(setq WL_PREFIX \"\")" "\n" + "(setq ELMO_PREFIX \"\")" "\n"))) + (substitute* "Makefile" + (("package-user-dir") "NONE")))) + (sha256 + (base32 + "1ijs57wv1vrh33vn311hgkp42vlmjyi998nc4qdrqi7yy9j8hl1h")))) + (build-system emacs-build-system) + (arguments + (list #:phases + #~(modify-phases %standard-phases + (add-after 'expand-load-path 'chdir-elmo + (lambda _ + (chdir "elmo"))) + (add-after 'chdir-elmo 'expand-load-path-elmo + (assoc-ref %standard-phases 'expand-load-path)) + (add-after 'expand-load-path-elmo 'chdir-utils + (lambda _ + (chdir "../utils"))) + (add-after 'chdir-utils 'expand-load-path-utils + (assoc-ref %standard-phases 'expand-load-path)) + (add-after 'expand-load-path-utils 'chdir-wl + (lambda _ + (chdir "../wl"))) + (add-after 'chdir-wl 'expand-load-path-wl + (assoc-ref %standard-phases 'expand-load-path)) + (add-after 'expand-load-path-wl 'change-directory + (lambda _ + (chdir ".."))) + (add-after 'install 'install-via-makefile + (lambda* (#:key inputs #:allow-other-keys) + (let ((emacs (search-input-file inputs "/bin/emacs")) + (lispdir (elpa-directory #$output)) + (infodir (string-append #$output "/share/info"))) + (for-each mkdir-p (list lispdir infodir)) + (substitute* "Makefile" + (("(EMACS = )emacs" all m) + (string-append m emacs)) + (("(LISPDIR = )NONE" all m) + (string-append m lispdir)) + (("(PIXMAPDIR = )NONE" all m) + (string-append m lispdir)) + (("(INFODIR = )NONE" all m) + (string-append m infodir)))) + (invoke "make" "install") + (invoke "make" "install-info")))))) + (propagated-inputs (list emacs-semi-epg)) + (home-page "https://www.emacswiki.org/emacs/WanderLust") + (synopsis "Yet Another Message Interface on Emacsen") + (description + "Wanderlust is an mail/news management system on Emacsen. It supports +IMAP4rev1(RFC2060), NNTP, POP and local message files. + +The main features of Wanderlust: + +@itemize +@item Pure elisp implementation. +@item Supports IMAP4rev1, NNTP, POP(POP3/APOP), MH and Maildir format. +@item Unified access method to messages based on Mew-like Folder Specification. +@item Mew-like Key-bind and mark handling. +@item Manages unread messages. +@item Interactive thread display. +@item Folder Mode shows the list of subscribed folders. +@item Message Cache, Disconnected Operation. +@item MH-like FCC. (Fcc: %Backup and Fcc: $Backup is allowed). +@item MIME compliant (by SEMI). +@item Transmission of news and mail are unified by Message transmitting draft. +@item Graphical list of folders. +@item View a part of message without retrieving the whole message (IMAP4). +@item Server-side message look up (IMAP4). Multi-byte characters are allowed. +@item Virtual Folders. +@item Supports compressed folder using common archiving utilities. +@item Old articles in folders are automatically removed/archived (Expiration). +@item Automatic re-file. +@item Template function makes it convenient to send fixed form messages. +@end itemize\n") + (license license:gpl2+)))) + (define-public emacs-waveform ;; XXX: Upstream provides no Version keyword. Using 0 as base version. (let ((commit "ee52c6a72b3e9890743e3a6e2fc1f3195f5687b2")