← Back to branch summary

~ubuntu-branches/ubuntu/precise/mhc/precise

« back to all changes in this revision

Viewing changes to emacs/mhc-draft.el

  • Committer: Bazaar Package Importer
  • Author(s): Tatsuya Kinoshita
  • Date: 2008-07-23 22:47:33 UTC
  • mfrom: (1.1.6 upstream) (3.1.2 lenny)
  • Revision ID: james.westby@ubuntu.com-20080723224733-owdy2r83a5hn2y8b
Tags: 0.25.1+20080720-1
* New upstream release. (development snapshot, downloaded from
  `http://www.quickhack.net/mhc/arc/mhc-current-snap20080720.tar.gz')
* debian/README.source: New file to explain source package handling.
* debian/control: Set Standards-Version to 3.8.0.

Show diffs side-by-side

added added

removed removed

Lines of Context:
emacs/mhc-draft.el
3
3
;; Author:  Yoshinari Nomura <nom@quickhack.net>,
4
4
;;          Yuuichi Teranishi <teranisi@quickhack.net>
5
5
;; Created: 2000/07/25
6
 
;; Revised: 2005-10-04 08:52:44
 
6
;; Revised: 2008-07-04 06:01:20
7
7
 
8
8
;;; Commentary:
9
9
 
138
138
  (if (mhc-draft-in-category-p "todo")
139
139
      (mhc-draft-delete-category "done")))
140
140
 
 
141
(defun mhc-draft-toggle-done ()
 
142
  "Set current draft as DONE if not; remove done if there."
 
143
  (interactive)
 
144
  (if  (mhc-draft-in-category-p "todo")
 
145
      (if (mhc-draft-in-category-p "done")
 
146
          (mhc-draft-delete-category "done")
 
147
        (mhc-draft-append-category "Done"))))
 
148
 
141
149
(defun mhc-draft-append-category (category)
142
150
  "Append CATEGORY if it is not contained yet."
143
151
  (mhc-header-narrowing