commit 2203f35f467e883ab236d71bab9dbcb6c1465788
parent d51213e7e721ab29f7b68071d990246301b21358
Author: Jaromil <jaromil@dyne.org>
Date:   Tue, 28 Aug 2012 11:42:20 +0200
new later/remember function for email todolist, also updated versioning
Diffstat:
3 files changed, 48 insertions(+), 37 deletions(-)
diff --git a/src/jaro b/src/jaro
@@ -20,8 +20,8 @@
 # this source code; if not, write to:
 # Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-VERSION=1.0
-DATE=Jun/2012
+VERSION=1.1
+DATE=Sept/2012
 JAROMAILEXEC=$0
 typeset -a OLDARGS
 for arg in ${argv}; do OLDARGS+=($arg); done
@@ -265,7 +265,7 @@ usage() {
     cat <<EOF
 Jaro Mail $VERSION - your humble and faithful electronic postman
 
- Copyright (C) 2010-2012 Dyne.org Foundation, License GNU GPL v3+
+ Copyright (C) 2010-2012 by Jaromil @ Dyne.org, License GNU GPL v3+
  This is free software: you are free to change and redistribute it
  The latest Jaro Mail sourcecode is on <http://jaromail.dyne.org>
 
@@ -289,27 +289,36 @@ Options:
  -n     dry run, show operations without executing them
  -D     print debugging information at runtime
 
-Maintenance commands:
-
- passwd   reset password for the account in use
+Addressbook commands:
 
- update   refresh configurations
- queue    add a mail into outbox
+ abook    manual edit the addressbook (white or blacklist)
+ list     prints out the list of known addresses
 
  learn    learn addresses from mails piped in stdin
  forget   remove addresses found in mails piped in stdin
- list     prints out the list of known addresses
- complete look for a glob matching address in whitelist
+
+ complete look for a glob matching string in addressbook
  isknown  read e-mail from stdin, return 0 if sender is known
 
+Maintenance commands:
+
+ passwd reset the stored password for a configured account
+
+ update   refresh configurations
+ queue    add a mail into outbox
+
  backup   move mails from a maildir to a new one with search expr
  rmdupes  remove all duplicated e-mails into a maildir
  merge    merge a maildir into another, removing all duplicates
  filter   passes a maildir through the filters
 
+ ramdisk  open/close activates fast cache in RAM on Mac/OSX
+
+Experimental commands:
+
  stat     prints a statistical overview on stored maildirs
  cert     import most common SSL certificates from the Internet
- ramdisk  open/close activates fast cache in RAM on Mac/OSX
+
 Please report bugs on <http://bugs.dyne.org>.
 EOF
 }
@@ -336,6 +345,7 @@ main()
     subcommands_opts[fetch]=""
     subcommands_opts[send]=""
     subcommands_opts[peek]=""
+
     subcommands_opts[update]=""
 
     subcommands_opts[stat]=""
@@ -355,6 +365,7 @@ main()
     subcommands_opts[edit]=""
     subcommands_opts[open]=""
 
+    subcommands_opts[later]=""
     subcommands_opts[backup]=""
     subcommands_opts[rmdupes]=""
     subcommands_opts[merge]=""
@@ -457,6 +468,8 @@ main()
 	send)    send ${PARAM} ;;
 	peek)    peek ${PARAM} ;;
 
+	later)   later ${PARAM} ;;
+
 	update)  update ;;
 
 	search)  CLEANEXIT=0; search ${PARAM} ;;
diff --git a/src/mutt/keybindings b/src/mutt/keybindings
@@ -1,13 +1,12 @@
-# Postino's keybindings for mutt
-# originally used by Jaromil
+# Jaro Mail keybindings for mutt
 
 bind index w search
 bind index x sync-mailbox
 macro index $ '<enter-command>set mark_old=yes<enter>'
 bind index \; tag-entry
 bind index \, tag-entry
-bind index T tag-pattern
-bind index t untag-pattern
+bind index t tag-pattern
+bind index T untag-pattern
 
 bind index      <pagedown>    next-page
 bind index      <pageup>  previous-page
@@ -40,29 +39,19 @@ bind editor 	<tab>	 complete-query
 macro index,pager "=" "<sync-mailbox><change-folder>?<toggle-mailboxes>" # folder list
 macro pager \ef "|view-x-face<enter>" "display the X-Face included in the mail"
 # Change PIL size
-macro pager "\e1"    "<enter-command>set pager_index_lines=1<enter>"
-macro pager "\e2"    "<enter-command>set pager_index_lines=2<enter>"
-macro pager "\e3"    "<enter-command>set pager_index_lines=3<enter>"
-macro pager "\e4"    "<enter-command>set pager_index_lines=4<enter>"
-macro pager "\e5"    "<enter-command>set pager_index_lines=5<enter>"
-macro pager "\e6"    "<enter-command>set pager_index_lines=6<enter>"
-macro pager "\e7"    "<enter-command>set pager_index_lines=7<enter>"
-macro pager "\e8"    "<enter-command>set pager_index_lines=8<enter>"
-macro pager "\e9"    "<enter-command>set pager_index_lines=9<enter>"
-macro pager "\e0"    "<enter-command>set pager_index_lines=0<enter>"
+macro pager "\e1"    "<enter-command>set pager_index_lines=0<enter>"
+macro pager "\e2"    "<enter-command>set pager_index_lines=1<enter>"
+macro pager "\e3"    "<enter-command>set pager_index_lines=2<enter>"
+macro pager "\e4"    "<enter-command>set pager_index_lines=3<enter>"
+macro pager "\e5"    "<enter-command>set pager_index_lines=4<enter>"
+macro pager "\e6"    "<enter-command>set pager_index_lines=5<enter>"
+macro pager "\e7"    "<enter-command>set pager_index_lines=6<enter>"
+macro pager "\e8"    "<enter-command>set pager_index_lines=7<enter>"
+macro pager "\e9"    "<enter-command>set pager_index_lines=8<enter>"
+macro pager "\e0"    "<enter-command>set pager_index_lines=9<enter>"
 
 bind index - collapse-thread
 bind index _ collapse-all
 
-# mutt sidebar
-# bind index,pager \C<up> sidebar-prev
-# bind index,pager \C<down> sidebar-next
-# bind index,pager \C<right> sidebar-open
-# bind index,pager \C<left> sidebar-open
-# macro index,pager B '<enter-command>toggle sidebar_visible<enter>'
-# color sidebar_new yellow default
-
-
-
-# for org-remember
-# macro index R "|remember-mail\n"
+# remember
+macro index R "|jaro later<enter>" "Save message in the remember folder"
diff --git a/src/zlibs/email b/src/zlibs/email
@@ -321,3 +321,12 @@ EOF
     } # DRYRUN
     return $?
 }
+
+later() {
+    func "Saving message from stdin into remember"
+    filename=$USER.$(hostname).$datestamp.$RANDOM
+    func "Filename: $filename"
+    maildircheck ${MAILDIRS}/remember
+    { test $? = 0 } || { maildirmake ${MAILDIRS}/remember }
+    cat > ${MAILDIRS}/remember/new/$filename
+}