From a1b1bd8d9d50108370a72a762853ab638658fa3b Mon Sep 17 00:00:00 2001
From: hober0 <hober0@e25b6a91-9619-0410-a269-c760fbc1eb27>
Date: Sat, 8 Dec 2007 17:02:35 +0000
Subject: [PATCH] Add completion for the Picture header. From
 http://community.livejournal.com/ljupdate/34217.html

git-svn-id: https://ljupdate.googlecode.com/svn/trunk@21 e25b6a91-9619-0410-a269-c760fbc1eb27
---
 lj-pcomplete.el | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/lj-pcomplete.el b/lj-pcomplete.el
index 23acaa5..08d741c 100644
--- a/lj-pcomplete.el
+++ b/lj-pcomplete.el
@@ -76,6 +76,14 @@
                         'string-lessp)
                   nil nil t))
 
+(defun pcomplete/lj-compose-header-mode/Picture ()
+  "Attempt to complete the Picture header."
+  (pcomplete-here (sort (copy-list (lj-user-get (lj-this-server)
+                                                (lj-this-user)
+                                                :pics))
+                        'string-lessp)
+                  nil nil t))
+
 (defun pcomplete/lj-compose-header-mode/Access ()
   "Attempt to complete the Access header."
   (pcomplete-here (sort
@@ -84,9 +92,8 @@
                     (mapcar 'car
                             (lj-user-get (lj-this-server)
                                          (lj-this-user)
-                                         :friends-groups))
-                    )
-                        'string-lessp)
+                                         :friends-groups)))
+                   'string-lessp)
                   nil nil t))
 
 ;; pcomplete support code