cgit.sxemacs.org Git - gnus/blob - lisp/password-cache.el

   1 ;;; password-cache.el --- Read passwords, possibly using a password cache.
   2
   3 ;; Copyright (C) 1999, 2000, 2003, 2004, 2005, 2006, 2007, 2008, 2009,
   4 ;;   2010  Free Software Foundation, Inc.
   5
   6 ;; Author: Simon Josefsson <simon@josefsson.org>
   7 ;; Created: 2003-12-21
   8 ;; Keywords: password cache passphrase key
   9
  10 ;; This file is part of GNU Emacs.
  11
  12 ;; GNU Emacs is free software: you can redistribute it and/or modify
  13 ;; it under the terms of the GNU General Public License as published by
  14 ;; the Free Software Foundation, either version 3 of the License, or
  15 ;; (at your option) any later version.
  16
  17 ;; GNU Emacs is distributed in the hope that it will be useful,
  18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 ;; GNU General Public License for more details.
  21
  22 ;; You should have received a copy of the GNU General Public License
  23 ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  24
  25 ;;; Commentary:
  26
  27 ;; Greatly influenced by pgg.el written by Daiki Ueno, with timer
  28 ;; fixes for XEmacs by Katsumi Yamaoka.  In fact, this is mostly just
  29 ;; a rip-off.
  30 ;;
  31 ;; (password-read "Password? " "test")
  32 ;; ;; Minibuffer prompt for password.
  33 ;;  => "foo"
  34 ;;
  35 ;; (password-cache-add "test" "foo")
  36 ;;  => nil
  37
  38 ;; (password-read "Password? " "test")
  39 ;; ;; No minibuffer prompt
  40 ;;  => "foo"
  41 ;;
  42 ;; (password-read "Password? " "test")
  43 ;; ;; No minibuffer prompt
  44 ;;  => "foo"
  45 ;;
  46 ;; ;; Wait `password-cache-expiry' seconds.
  47 ;;
  48 ;; (password-read "Password? " "test")
  49 ;; ;; Minibuffer prompt for password is back.
  50 ;;  => "foo"
  51
  52 ;;; Code:
  53
  54 ;; Options are autoloaded since they are used by eg mml-sec.el.
  55
  56 ;;;###autoload
  57 (defcustom password-cache t
  58   "Whether to cache passwords."
  59   :group 'password