Package: dpkg-dev-el
Version: 26.9-1
Severity: wishlist
Tags: patch

Hello,

I'd like to bcc: to [EMAIL PROTECTED] and not cc: it.  The attached patch
adds this option.

Thx, bye,
Gismo / Luca

-- System Information:
Debian Release: testing/unstable
  APT prefers unstable
  APT policy: (990, 'unstable'), (500, 'testing'), (500, 'stable'), (1, 
'experimental')
Architecture: i386 (i686)
Shell:  /bin/sh linked to /bin/bash
Kernel: Linux 2.6.18
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8)

Versions of packages dpkg-dev-el depends on:
ii  debian-el                   26.9-1       Emacs helpers specific to Debian u
ii  emacs-snapshot-nox [emacsen 1:20061009-1 The GNU Emacs editor (without X su
ii  emacs21-nox [emacsen]       21.4a-6.2    The GNU Emacs editor (without X su

Versions of packages dpkg-dev-el recommends:
ii  wget                 1.10.2+1.11.beta1-1 retrieves files from the web

-- no debconf information

--- /usr/share/emacs/site-lisp/dpkg-dev-el/debian-bts-control.el	2006-09-22 21:57:32.000000000 +0200
+++ debian-bts-control.el_gismo	2006-10-12 01:29:19.000000000 +0200
@@ -56,6 +56,8 @@
 ;;      (debian-bts-control-prompt): Code structure slightly redesigned.
 ;;      (debian-bts-control): Use `debian-bts-bug-number-at-point' to
 ;;      set `number-default'.
+;; V1.09 12Oct2006 Luca Capello <[EMAIL PROTECTED]>
+;;  - Add `debian-bts-control-cc-or-bcc'.
 
 ;;; Code:
 
@@ -82,10 +84,16 @@
   '(mh-letter-mode mail-mode message-mode)
   "List of modes in which calling `debian-bts-control' will reuse the buffer.
 No new draft will be created.  Instead [EMAIL PROTECTED] will be
-added to the Cc: field and the comamnds added at t6he top of the message."
+added to the `debian-bts-control-cc-or-bcc' field and the commands added at
+the top of the message."
   :group 'debian-bts-control
   :type '(repeat symbol))
 
+(defcustom debian-bts-control-cc-or-bcc 'cc
+  "Whether to use Cc: or Bcc: header."
+  :group 'debian-bts-control
+  :type '(choice (const cc) (const bcc)))
+
 (defvar debian-bts-control-minor-mode nil)
 (defvar debian-bts-control-minor-mode-map nil
   "Keymap for `debian-bts-control' minor mode.")
@@ -287,7 +295,9 @@
           (and (car (memq t (mapcar '(lambda (item) (eq item major-mode))
                                     debian-bts-control-modes-to-reuse)))
                (not debian-bts-control-minor-mode)))
-      (debian-bug--set-CC "[EMAIL PROTECTED]" "cc:")
+      (debian-bug--set-CC "[EMAIL PROTECTED]"
+			  (concat
+			   (symbol-name debian-bts-control-cc-or-bcc) ":"))
       (goto-char (point-min))
       (if (re-search-forward "\\([0-9]+\\)@bugs.debian.org"
                              (mail-header-end) t)

Attachment: pgp7wGMFIt6tF.pgp
Description: PGP signature

Reply via email to