xmaillard

(defvar bbdb-smsable-phones-label '("Mobil") ; TODO: make it a list?
  "The member of `bbdb-phone-label-list' that can receive sms-es.")
(defun bbdb-send-sms (record)
  ;; TODO: no signature, how? gnus-posting-styles possible?
  (interactive (list (bbdb-current-record)))
  (let* ((phones (bbdb-record-phone record))
	 (cellphone (replace-regexp-in-string
		     "[ -]" ""
		     (catch 'found
		       (mapc (lambda (p)

xmaillard

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Terminal notifier 
;; requires 'sudo gem install terminal-notifier'
;; stolen from erc-notifier

(defvar terminal-notifier-command (executable-find "terminal-notifier") "The path to terminal-notifier.")

; (terminal-notifier-notify "Emacs notification" "Something amusing happened")

(defun terminal-notifier-notify (title message)